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100 1.0 ABSTRACT 
WON ee ee ee 


THE DRV11B DIAGNOSTIC PROGKAM IS A SERIES OF TESTS DESIGNED 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE WITH 

THE LOOP BACK CABLE INSERTED IN THE USER I/0 CONNECTORS. 

TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA_THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5 

OF THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN ‘'REV11°" (DMA REFRESH), 
THE DMA REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


REQUIREMENTS 


EQUIPMENT 


1. .SI- "Hy FAMILY PROCESSOR. 

11/03(LSI-11/02), 11/23 (KDF11-A) 11/23B(KDF 11-B) 
» LVI] WITH 1/0 TYPE TERMINA 
3. DRV11B WITH LOOP BACK CABLE 


STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


F USING PAPER TAPE READER FOLLOW THIS PROCEDURE: 
ASSURE THAT THE LSI-11 IS IN THE ODT MICROCODE STATE. 
LOAD THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER 


I 
Te 
‘ TAPE. 
3. TYPE THE READER’ S CSR ADDRESS (177560-LOW OR 177550-HIGH) 
AND CHARACTER ‘L* 
4. AFTER TAPE IS LOADED, LOAD THE — BINARY TAPE INTO THE 
READER AND TYPE THE CHARACTER 
5. IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED (STEPS 2 & 3), 
THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER AND 
THE CHARACTER 'G' NEED BE TYPED (WITH “HE DRV11B BINARY TAPE 
IN THE APPROPRIATE READER). 


STARTING PROCEDURE 


FOR PAPER TAPE MEDIA: 
1. MAKE SURE THE MAINTENANCE LOOP “a CABLE IS INSERTED IN 
THE I/0 CONNECTORS ~ THE M7950 MODUL 
2. MAKE SURE THE DEVICE BUS & VECTOR ADDRESSES AGREE WITH THE 
ECTION IF NOT, CHANGE 


LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/* a* COMMAND . 

3. INSURE THAT THE HALT SWITCH IS eee” CIF 

4. Ring a.) STARTING ADDRESS OF 200 AND THE CHAR ACTER G. 

5. THE PROGRAM WILL RESPOND BY TYPING. THE SOFTWARE SWITCH 
REGISTER CONTENTS AND ALLOWING THE USER TO CHANGE ITS 
CONTENTS BY ENTERING OCTAL SWITCH REGISTER DATA TERMINATED 
BY A CARRIAGE RETURN - SEE SECTION 5.0 FOR SWITCH REGISTER 


SEQ 0003 
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C“TIONS. 
6. THE NEXT QUESTION ASKED IS ABOUT THE TYPE OF A PROCESSOR. 
es "Y" WITH CARRIGE RETURN IF USING KDF11-B, 'N* OTHER- 


IF RUNNING UNDER XXDP+ MONITOR: 

A). DO OF THE ABOVE. 
B) IN MONITOR MODE TYPE IN 'R VDRAB?'. 
C) DO 5. AND 6. 


KKKKEK 

IF USING LSI-11/23R(KDF11-B) AND WANT TO TEST DMA TRANSFERS TO 

1/0 PAGE PUT THE ADDRESS OF YOUR I/O INTERFACE CONTROL RE- 

GISTER INTO LOCATION 1544 (IOPAGE)._TO DO THIS PERMANENTLY USE 

LOAD-MOD-DUMP PROCEDURE DEFINED IN 7.2. FOR TEMPORARY CHANGES 

JUST MODIFY LOCATIONS AFTER LOADING THE PROGRAM. 

NOTE: THIS TEST IS NOT GOING TO BE PERFOMED UNLESS THE ABOVE 
MENTIONED LOCATIONS ARE MODIFIED. 


SEQ 0004 
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175 5.0 SOFTWARE SWITCH REGISTER 
177 
| 18 5.1 OPTIONS 
| 180 SWITCH OCTAL FUNCTION 
| 182 sw15=1 100000 HALT ON ERROR 
183 SW14=1 040000 LOOP ON TEST 
184 SW13=1 020006 INHIBIT ERROR TYPEOUTS 
185 Sw11=1 004000 INHIBIT ITERATIONS 
186 SW10=1 002000 BELL ON ERROR 
187 SWO9= 1 001000 LOOP ON ERROR 
188 swO8=1 0004xX LOOP ON TEST IN SWR <5-0> 
189 #4 SW07=1 000200 DEVICE IS KDF11-8 
190 ***DIAGNOSTIC WILL SET THIS SWITCH AUTOMATICALLY, IF THIS TYPE 
191 OF A PROCESSOR HAS BEEN CONFIRMED IN A DIALOGUE. IF RUNNING IN 
19 AUTOMATIC MODE (CHAINS UNDER XXDP OR APT) SEE. SECTION 7-2 
194 5.2 CONTROL 
196 1. THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE 
197 CHANGED BY USING THE ODT FACILITIES. 
198 2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
199 CONTROL BY TYPING THE "CONTROL & G’ KEYS. THIS 
200 KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
201 AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
202 WITH A CARRIAGE RETURN. 
203 3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
20% ERROR CONDITION WITH BIT1>. SET (HALT ON ERROR). STEP #2 
205 ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
206 SOFTWARE SWITCH YREGISTER iF DESIRED BEFORE TYPING 
208 4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
200 "CONTROL & G' COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 
210 BY THE PROGRAM. 
212 6.0 ERROR REPORTING 
PS ee PS eon 
214 
215 6.1 ERROR COMMENT 
217 ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
218 COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
219 THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
220 ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 


*ERRPC Ty ieee ADDRESS WHERE THE ERROR WAS DETECTED 
*TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11B BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 

ADRS MEMORY ADDRESS OF DATA TRANSFER ON ERROR 
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231 *ALWAYS REPORTED 
232 7.0 MISCELLANEOUS 
ee ee ete 
235 7.1 DRV11B BUS & VECTOR ADDRESS MODIFICATION 
| 237 MODIFY LOCATION '$BASE" IF BASE BUS ADDRESS IS NOT 172410. 
238 MODIFY LOCATION "$VECT1" IF VECTOR ADDRESS IS NOT 124. 
| 240 *NOTE: USE THE LSI-11 ODT FACILITIES TO MODIFY THESE LOCATIONS 
241 AFTER PROGRAM LOAD. NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE 
242 ALLOWED. 
243 
244 7.2 XXDP/APT NOTES 
246 THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. 7. 5) (REQUIRES 8k OR MORE). 
247 THIS DIAGNOSTIC DOES SUPPORT ‘'APT’’ AND HAS RUN UNDER IT 
249 IF THE PROCESSOR USED IS KDF11-B: 
250 FOR APT SET $SWREG BITO7 TO 1 (000200) 
251 FOR XXDP CHAINS SET LOCATION 176 (SWR) BITO7 TO 1 
252 TO DO THIS UNDER XXDP: 
253 1. R UPD2 
254 2. LOAD VDRAB?.BIC 
255 3. MOD 176 
256 THE TERMINAL WILL RESPOND: 176/000000 
257 4. NOW TYPE IN 200 
258 5. BE CAREFUL: AT THIS POINT IT IS NECESARY TO DELETE THE FILE 
259 FROM THE DISK. 
260 DEL OLO:VDRAB?.BIC (IF MEDIA IS RL ON DRIVE 0) 
261 6. DUMP VDRABO.RIC 
262 TO BE SAFE, SKIP 5. AND DUMP THE FILE UNDER DIFFERENT NAME 
263 WITH .BIC EXTENSION. 
264 NOTE: THis PROCEDURE ASSUMES THAT DIAGNOSTIC IS ON THE DISK 
265 FROM WHICH THE SYSTEM IS BOOTED. IF THIS IS UNTRUE 
266 IN 2. AND 6. THE OPERATOR HAVE TO SPECIFY THE DRIVE BEFORE 
267 THE NAME. 
268 
269 7.3 POWER FAIL 
| 271 A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
| 272 WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
| 273 NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 
279 7.4 MULTIPLE DRV11B INTERFACE TESTING 
277 THIS PROGRAM DOES NOT "‘AUTO-SIZE'’ THE NUMBER OF DRV11B°S CONNECTED. 
278 THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRV11B iNTERFACES 
279 WITH CONTIGUOUS BUS AND VECTOR ADDRESSES. THIS IS ACCOMPLISHED 
280 BY THE OPERATOR SETTING UP LOCATION ‘SDEVM' WITH A BIT MAP INDICATING WHAT 
281 INTERFACES ARE TO TESTED. I.£. BITO=1 SAYS TEST 1ST DRV11B, 
) oR BIT1=1 SAYS TEST 2ND DRV11B, BiT2=1 SAYS TEST 3RD DRV11B, ETC.. 
284 7.5 RESTRICTIONS 
| 285 | 


286 IF THE SYSTEM ALSO INCLUDES AN ‘'REV11"' (DMA REFRESH), THE DMA 
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287 REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 
289 8.0 EXECUTION TIME 
ee ee 
292 EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 
298 TO ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV11B CONNECTED. 
294 AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
295 9.0 PROGRAM TEST DESCRIPTIONS 
297 
298 9.1 GENERAL 
300 THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
301 TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11B DMA INTERFACE. 
302 A HIGH DEGREE OF TESTING IS ACCOMPLISHED WITH THE AID OF THE 
303 MAINTENANCE LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 
304 A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
305 AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
506 FACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 
308 9.2 REGISTER TESTS 
ee THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED: 
1 
312 1. WORD COUNT 
313 2. BUFFER ADDRESS 
314 3. COMMAND/STATUS 
318 4: DATA BUFFER 
317 9.3. BYTE ADDRESSING TESTS 
319 1. COMMAND/STATUS 
$5 2. DATA BUFFER 
356 9.4 "FNCT’ TO ‘STAT’ WRAP AROUND TEST 
$5¢ 9.5 READY INTERRUPT TEST 
$5 9.6 NPR DATA TRANSFER TESTS 
328 THE FOLLOWING NPR XFERS ARE CHECKED FOR CORRECT STATUS, 
529 WORD COUNT, BUFFER ADDRESS & DATA: 
331 3 1. SINGLE "DATI' XFER = FLOATING 1/0 PTRN 
332 2: SINGLE "DATO' XFER - FLOATING 1/0 PTRN 
333 3: 200 ‘DATI' XFERS - FLOATING 1/0 PTRN 
33%, 4: 200 "DATO" XFERS - FLOATING 1/0 PTRN 
335 5. SINGLE 'DATI' XFER TO THE TTY PRINTER CSR 
336 FOR KDF11-B PROCESSOR THE USER HAVE TO SELECT 
337 CSR OF A PARTICULAR INTERFACE (DISK INTERFACES 
338 ARE SUGGESTED). SOME OF THEM ARE: 
339 RXV11.(RXO1):_:177170 
340 RXV21  (RXO2): 177170 
541 RKV11=D (RKO5): 177404 
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MAINT MODE NPR DATA TRANSFES TESTS 

1. THAT MAINT MODE CONTROLS ‘FNCT* BITS 

2. 200 MAINT MODE XFERS - CHECKING STATUS & DATA 
3. 200 MAINT MODE XFERS TO EACH 4K AVAILABLE MEM 
BURST & NON-BURST MODE TESTS 


1. THAT CPU IS LOCKED OUT IN BURST MODE 
2. THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE 


"NEX" ERROR CONDITION TEST 


LISTING 


CVDRAB.P11 11-SEP-81 12:21 SEQ 0009 


TITLE MAINDEC=11=CVDRA-B DRV11B DMA INTERFACE DIAGNOSTIC 
;*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORP. 

; #MAYNARD , MASS. 01754 


: #PROGRAM BY R. MOORE 


‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPALRAGE (MAINDEC=11=DZQAC-C5), JAN, 1981. 
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000001 $tN=1 
160000 $SWR=160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
167400 $SWR=167400 
000300 $SWRMK=300 
000001 $TN=1 
- SBTTL OPERATIONAL SWITCH SETTINGS 
ie SWITCH USE 
ee Mmm nwrw—= 8 +e Eee eee meee eo eee 
3* 15 HALT ON ERROR 
;* 14 LOOP ON TEST 
* 13 INHIBIT ERROR TYPEOUTS 
i* 11 INHIBIT ITERATIONS 
:* 10 BELL ON ERROR 
ho 9 LOOP ON ERRO® 
.* 8 LOOP ON TES; IN SWR<5:0> 


-SBTTL BASIC DEFINITIONS 
Viae ieee OF THE STACK POINTER *** 1100 *** 


3 

(1 
(1 
(1 
qi 
(1 
(1 
(1 
(1 
(1 
1 
(1 
37 
37 
37 
37 
(1 
(1 
(1 
(1 
a 
(1 
41 
@ 
« 
@ 
37 
| 
(1 
(1 
1 
a 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 


ee ee ed 0 ee te it AL eh”) Lt tite att ee 


001100 STACK= 
“EQUIV. EMT,SRROR ::BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT.SLOPE +:BASIC DEFINITION OF SCOPE CALL 
:*MISCELLANEOUS DEFINITIONS 

000011 HT= 11 : CODE FOR HORIZONTAL TAB 

000012 LF= 12 CODE FOR LINE FEED 

000015 CR= 15 +: CODE FOR CARRIAGE RETURN 

000200 CRLF= 200 >:CODE FOR CARRIAGE RETURN-LINE FEED 

177776 PS= 177776 S:PROCESSOR STATUS WORD 
.EQUIV PS,PSW 

177774 STKLMT= 177774 :STACK LIMIT REGISTER 

177772 PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 

177570 DSWR= 177570 S:HARDWARE SWITCH REGISTER 

177570 DDISP= 177570 S HARDWARE DISPLAY REGISTER: 
:*GENERAL PURPOSE REGISTER DEF INITIONS 

000000 RO= 10 ;:GENERAL REGISTER 

000001 R1= 11 + CENERAL REGISTER 

000002 R2= 12 t:GENERAL REGISTER 

000003 R3= 13 S:GENERAL REGISTER 

000004 R4= 14, *:GENERAL REGISTER 

900005 R5= 15 +:GENERAL REGISTER 

000006 R6= 16 >:GENERAL REGISTER 

006067 R7= ss ERAL REGISTER 

000006 SP= 16 : *:STACK POINTER 

000007 PC= 47 + PROGRAM COUNTER 
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CVDRAB.P11—-11=SEP=81 12:21 BASIC DEFINITIONS : SEQ 0010 

(1) 
(1) ;*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= 0 PRIORITY LEVEL 0 
(1) 000040 PRI= 40 “TPRIORITY LEVEL 1 
(1) 000100 PRe= 100 ;;PRIORITY LEVEL 2 
(1) 000140 PR3= 140 ;:PRIORITY LEVEL 3 

; a 000200 PR4= 200 :IPRIORITY LEVEL 4 
(1) 000240 PRS= 240 :IPRIORITY LEVEL 5 
(1) 000300 PR6= 300 :IPRIORITY LEVEL 6 
CM) 000340 PR7= 340 ;IPRIORITY LEVEL 7 
) ;*""SWITCH REGISTER" SWITCH DEFINITIONS 
(1) 100000 Sw15= 100000 
(1) 040000 SW14= 40000 
(1) 020000 SW13= 20000 
(1) 010000 SWi2= 10000 
(1) 004000 Swi1= 4000 
(1) 002000 SW10= 2000 
(1) 001000 SWwO9= 1000 
(1) 000400 SWwO8= 400 
(1) 000200 swO7= 200 
(1) 000100 SwO6= —10¢ 
(1) 000040 SWwOS= 40 
(1) 000020 SWw04= 20 
(1) 000010 SwO3= 10 
(1) 000004 SwO2= 4 
(1) 000002 SwO1= 2 
1) 000001 Sw00= 
(1) EQUIV SWO9,SW9 
(1) EQUIV SwWO08,SW8 
(1) EQUIV SWO7,SW7 
(1) EQUIV $W06;SW6 
(1) EQUIV SWO5,SW5 
1) SEQUIV SW04;SW4 
(1) EQUIV SwW03,SW3 
(1) EQUIV SWO2.SW2 
(1) SEQUIV SwWO1,SW1 
(1) “EQUIV $wW00;SWO 
1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BITI2= 10000 
(1) 004000 BITI1= 4000 
1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) 000400 BITOB= 400 
(1) 000200 BITO7= 200 
(1) 000100 BITO6= 100 
(1) 000040 BITOS= 40 
(1) 000020 BITO4= 20 
(1) 000010 BITO3= 10 
1) 000004 BITO2= 4 
(1) 000002 BITOl= 2 
(1) 000001 BITOO= 1 


; 


-——— 


WRARR ARR RAR AAA A AAO OOOOR 
SJ SS SS Ss Ss Ss 2s SS SS Ss SS Ss SS HS 
SNe eee ee Oar Oem I area eee ew 


4 
— — 


000000 


000174 
000176 


*00200 
000100 
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000004 


177522 


000000 


000174 
000000 
000000 
000137 001550 


00010 
000104 000200 000002 
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BASIC DEFINITIONS 


-EQUIV BITO9,BIT9 


EQUIV BITO8,BIT 
EQUIV BIT07,B1T7 
EQUIV BIT06,B1T6 
EQUIV BITO5,BIT5S 
EQUIV BIT04.BI1T4 
EQUIV BIT05,BIT3 
BIT02,Bli2 
B1T01,B1T1 


-EQUIV BITOO,BITO 
;*BASIC ''CPU"’ TRAP VECTOR ADDRESSES 


ERRVEC= 4 E OUT AND OTHER ERRORS 

RESVEC= 10 :;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 7) (Oe 

TRIVEC= 14 ; TRACE Lora 

BPTVEC= 14 ‘ IBREAKPOINT TRAP (B?T) 

IOTVEC= 20 32: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC= 24 ;;POWER FAIL 

EMTVEC= 30 : EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 33'"TRAP’’ TRAP 

TKVEC= 60 ;:TTY KEYBOARD VECTOR 

TPVEC= 64 eTTy PRINTER VECTOR 

PIRQVEC=240 ;PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= 172410 :BASE DRV11B BUS ADRS EQUATE 

AVECT1= 000124 :BASE DRV11B VECTOR ADRS EQUATE - 
ADEVM= 1 :DEFAULT TO ONE DRV11B 

MTPS=106427 ; INSTR EQUATE THAT MOVES BYTE TO PSW 
TMAIN: 177522 ;MAINTENCE REGISTER(FOR USE WITH KDF11-B) 


-SBTTL TRAP CATCHER 


=0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN i. aoe HAL T** 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUP 
:*LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ::SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 7sSOFTWARE SWITCH REGISTER 
- SBTTL START ING ADDRESS(ES) 

@ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


00 
“WORD 104,200,2 ;I1F ‘B EVENT’ ON Q BUS IS CONNECTED 
; IGNORE IT'S INTERRUPT = JUST DO A RTI 


SEQ 0011 
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387 -SBTTL ACT11 HOOKS 
DAS UISISIDIISISISIISIOIUISIIOISIIIISIOIOIIIIDISIIOIIDIOIIIOIUISIUIUIIDIOIOINIIDIDIDIUINIODIDIDOE 
HOOKS wt ha BY ACT11 i 
000106 $SVPC= SAVE PC 
000046 =46 
000046 Bones SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 000000 «WORD 0 :22)SET LOC. rt TO ZERO 
sis Bh .=$SVPC 33 RESTORE P 


-=1000 
-SBTTL APi PARAMETER BLOCK 


RR E RE REREREEEEEEERERRER ERE E EEE 


:Se7 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


RR RRR EER EERE EERE EERE EEE KEE EKER EEE EERE EEE EKEE 


001000 - $X=. ove CURRENT LOCATION 

000024 2=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 [FOR APT START UP 

000044 ~=44 STPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR :TPOINT TO APT HEADER BLOCK 

001000 -$X  =;;RESET LOCATION COUNTER 


rTTTTTeTie Titi ititte IIIS III UII IOIUIIIUIUIIIOIDI I Ip iok 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


ee ek ed = os 2s a fL) 9 ot 9 a fy = PN OOO SS SS SS SS sf 
ee Ne Ne eee ee We es eee a Yew ODS Sw wes a 


001000 SAPTHD: 

001000 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001174 $MBADR: .WORD $MAIL :ZADDRESS OF APT “ieee (BITS 0-15) 

001004 000031 $TSTM: .WORD 25. RUN if OF LONGEST T 

J01006 000006 $SPASTM: .WORD f ; RUN TIME IN SECS. OF iS1 PASS ON 1 UNIT (QUICK VERIFY) 

001010 000144 SUNITM: .WORD 100. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


001012 000052 . WORD SETEND-SMAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 


ee ee te ee ee ee a a a at a 1, Le a a ee 





MAINDEC-11=CVDRA-B aad He DMA INTERFACE pan bh 
CVDRAB.P11 12:21 COMMON TAGS 
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Pee Nee eee et ee ee ee ee ae ee ee ee ee ee ee ee a ee ei ee ee ee ee ee ee ee ee ee eee ee ee ee es we es 


OO RFR FR RR RFR RRR FRR FRE EEA AEE AA AE AAA AAA AOA OOO AA OOO 
POMORSPODENONOPOPU NRO DON a ss Ss Ss Ss Sh Ss Ss ss SS Sh sh ss hh Ss sh SS 
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001156 
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001100 
000000 
0 


000377 


N 1 
MACY11 30(1046) 


-SBTTL COMMON TAGS 


SL RAARRERKK RK REREEEEEE EEE 


i*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: 


$BDDAT: . 


$AUTOB: 


$INTAG: . 


-=1100 


Se SH eeee eee oowe See 


WR 
DISP 


O-120 
Nm 


> > iia etal 


£45> 
<12> 


11-SEP-81 12:22 PAGE 5-4 


73START OF COMMON TAGS 


3sCONTAINS THE oni NUMBER 
7: CONTAINS ERROR FLAG 
+ UBTEST ITERATION COUNT 
;;CONTAINS SCOPE LOOP ADDRESS 
;;CONTAINS SCOPE RETURN FOR ERRORS 
7:CONTAINS TOTAL ERRORS a 


= 
oO 
]= 
“ 
> 
Loonl 
2 
n”n 
4) 


s3C ER TEST 
Z:CONTAINS PC OF LAST ERROR INSTRUCTION 
3zCONTAINS ADDRESS OF ‘GOOD' DATA 
3z:CONTAINS ADDRESS OF ‘BAD DATA 
Ly paling ae: "GOOD * <i 

CONTAINS ‘BAD’ DAT 
; ;RESERVED--NOT TO BE USED 


;sAUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


;;ADDRESS OF SWITCH REGISTER 
a OF DISPLAY REGISTER 
Y KBD STATUS 
citTy KBD BUFFER 
eeTTY PRINTER STATUS REG. preaed 
TTY PRINTER BUFFER REG. ADDRESS 
: CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF FILLER CHARACTERS REQUIRED 
?: INSERT FILL CHARS. AFTER A “LINE FEED" 
gg a AVAILABLE FLAG (BIT<07>=0=YES) 
;MAX. NUMBER OF ITERATIONS 
sESCAPE ON ERROR ADDRESS 
< CODE FOR BELL 
7; QUESTION MARK 
7 CARRIAGE RETURN 
E FEED 


. 
ee 


'WERARARASALAALZALZELESESSASAASERS SESE SESS RSL RR SRR SARA SSSR SASS RSA R SSS: 


“SBITL APT MAILBOX-ETABLE 


FLERE AREER EEA ERE AAR ERE ERE REE REREAD 


.EVEN 

SMAIL: 

SMSGTY: .WORD 
SFATAL: .WORD 
STESTN: .WORD 
$PASS: .WORD 
SDEVCT: WORD 
SUNIT WORD 
$MSGAD: . WORD 


> APT MAILBOX 


7 :MESSAGE TYPE CODE 
FATAL ERROR NUMBER 


SEQ 0013 


B 2 
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CVDRAB.P11 11-SEP-81 12:21 APT MAILBOX~E TABLE SEQ 0014 
(2) 001212 000000 $MSGLG: .WORD AMSGLG eo OaT eae LENGTH 
(2) 001214 SETABLE: T ENVIRONMENT TABLE 
(2) 001214 000 SENV BYTE AENV ENVIRONMENT BYTE 
(2) 901215 SENVM BYTE AENVM ;;ENVIRONMENT MODE BITS 
(2) 001216 000000 $SWREG ORD ASWREG ;;APT SWITCH REGISTE 
(2) 001220 000000 $USWR: .WORD AUSWR  ;;USER SWITCHE 
(2) 001222 000000 sCPUOMs -WORD ACPUOP ;;CPU TYPE, ou te 
(2) BITS 15- By CPU TYPE 
(2) ie 1/04 Yo} LAS 02,11/20=03,11/40=04,11/45=05 
(2) 7 11776= 06,PDQ=07,0=10 
(2) sf BIT 10=REAL TIME CLOCK 
(2) 7* BIT 9=FLOATING POINT + praising, 
(2) .* BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 SMAMS1: .BYTE AMAMS1 ;;HICH ADDRESS,M.S. BYTE 
(2) 001225 000 $MTYP1: .BYTE AMTYP1 ;;MEM. TYPE ,BL 
(2) ;* MEM.TYPE BYTE == (HIGH BYTE) 
(2) s* 900 NSEC CORE=001 
(2) :* 300 NSEC BIPOLAR=002 
(2) ;* 500 NSEC MOS=003 
(2) 001226 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
(2) :* MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF "'TYPE'’ ABOVE 
(2) 001230 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001231 000 $MTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLKA&2 
(2) 001232 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK#2 
(2) 001234 000 $MAMS3: .BYTE AMAMS3 ;;HIGH + ag FS M.S.BYTE 
(2) 001235 000 SMTYP3: .BYTE AMTYP3 : MEM. TYPE ,BLKA 
(2) 001236 000000 $MADR3: .WORD AMADR3 MEM.LAST ADDRESS, ete 
(2) 001240 000 $MAMS4: .BYTE AMAMS4 ;:HIGH ADDRESS,M.S.BYT 
(2) 001241 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE,BLK&4 
(2) 001242 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLK&4 
(2) 001244 000124 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITYA2 
(2) 001250 172410 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000001 $DEVM: .WORD ADEVM ;;DEVICE MAP 
(2) 001254 000000 $CDW1: .WORD ACDW1 ;;CONTROLLER DES "ON WORDA1 
(2) 001256 000000 $CDW2: .WORD ACDW2 :; CONTROLLER DE: ION WORDA2 
(2) 001260 000000 $DDWO: .WORD ADDWO ;;DEVICE DESCR 4ORDAO 
(2) 001262 000000 $DDW1i: .WORD ADDW1 ;;DEVICE DESC” . WORDA1 
(2) 001264 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCr.. JR WORDH2 
(2) 001266 000000 SDDW3: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#3 
(2) 001270 000000 $DDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 
(2) 001272 000000 $DDWS: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDAS 
(2) 001274 000000 SDDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
(2) 001276 000000 $DDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORD#7 
(2) 001300 000000 $DDW8: .WORD ADDWB ;;DEVICE DESCRIPTOR WORDS 
(2) 001302 000000 $DDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORD#9 
(2) 001304 000000 $DDW10: .WORD ADDW10 ;;DEVICE DESCRIPTOR WORD#10 
(2) 001306 000000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORDA11 
(2) 001310 000000 SDDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD#12 
(2) 001312 000000 SDDW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORDA#13 
(2) 001314 000000 $DDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
3 001316 000000 $DDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#15 
(2) 
(2) 001320 SETEND: 
(2) 
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AAR RAR RE FRR FR FRR ROR 
kk ek a st ot 8 as 2 2 ot I SH 
wee Ne ee ee ae ae ae a ee ae a 


ar a? > >t >t et et er 
NOR = .2 a SS 
—OOONAULS Ww 


001320 
001320 


001326 


001330 


001336 


001340 


001346 


001350 


001356 


001360 


001366 


001370 


001376 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
:*LOCATION $SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE iL, A$ - PERTINENT. 


‘*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 
s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS PAPLAINED AS FOLLOWS: 
3* EM 3;POINTS TO THE ERROR MESSAGE 
;* DH :zPOINTS TO THE DATA HEADER 
;* DT ;;POINTS TO THE DATA 
za DF 3zPOINTS TO THE DATA FORMAT 
$ERRTB 
;ERROR 1 
EM1 ;REG TIMEOUT ER 
DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
ae sS$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 
sERROR 2 
EM2 sREG READ/WRITE ER 
DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
es sSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
sERROR 3 
EM3 ;BUS RESET ER 
DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
ib s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 
sERROR 4 
EM4 sFNCT BITS FAILED TO SET STAT BITS 
DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
- sSERRPC TSTNUM $B8DADR $GDDAT $BDDAT 
sERROR 5 
EM5 ;READY iNTR FAILURE 
DH1 ;ERRPC TSTNUM BUSADR- EXPCT RCVD 
‘ sSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
sERROR 6 
EM6 sREADY CLR OR SET ER 
DH1 s;ERRPC TSTNUM BUSADR- EXPCT RCVD 


+h ;SERRPC TSTNUM $BDADR $GDDAT $BDDAT 


SEQ 0015 


———__ 
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427 

428 001400 014337 

429 001402 015041 

430 001404 015212 

431 001406 000000 

432 

433 

434 001410 014361 

435 001412 015041 

436 001414 015212 

437 001416 000000 

438 

439 


443 001426 000000 


444 

445 

446 001430 014436 
447 001432 015106 
448 001434 015226 
449 001436 000000 
450 

451 


452 001440 014457 
453 001442 015106 
454 001444 015226 
455 001446 000000 


458 001450 014476 
461 001456 000000 
464 001460 
467 001466 
470 001470 
473 001476 
476 001500 


479 001506 


DIAGNOSTIC 
ERROR POINTER TABLE 


7 ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


s ERROR 


; ERROR 


; ERROR 


; ERROR 


7 
E 
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STATUS ER_ON XFER 
s;ERRPC TSTNUM BUSADR- EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


;WORD COUNT ER ON XFER 
;ERRPC TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


;BUFFER ADRS ER ON XFER 
;ERRPC TSTNUM BUSADR' EXPCT 
;$ERRPC TSTNUM $BDADR $GDDAT 


;DATA ER FROM MEM 
;ERRPC TSTNUM BUSADR ADRS 
;SERRPC TSTNUM $BDADR $GDADR 


;DATA ER TO MEM 
;ERRPC TSTNUM BUSADR ADRS 
;SERRPC TSTNUM $BDADR $GDADR 


12:22 PAGE 5-7 


RCVD 
$BDDAT 


RCVD 

$BDDAT 

RCVD 

$BDDAT 

EXPCT RCVD 


$GDDAT $BDDAT 


EXPCT RCVD 
$GDDAT $BDDAT 


7 SINGLE CYCLE OFF yt NOT LOCK OUT CPU 
RRPC BUSAD 


TSTNUM 
© SERRPC TSTNUM SBDADR 


: SINGLE CYCLE ON rire iy OUT CPU 
RRPC BUSADR 


TSTNUM 
® SERRPC TSTNUM $BDADR 


;NEX LOGIC ER 
sERRPC TSTNUM BUSADR- EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


CYCLE FAILED TO CLK DBR (IN) 
sERRPC TSTNUM BDADR  GDDAT 
:SERRPC TSTNUM $BDADR $GDDAT 


RCVD 
$BDDAT 


BDDAT 
$BDDAT 


SEQ 0016 





. 
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CVDRAB.P11 11-SEP-81 12:21 ERROR POINTER TABLE SEQ 0017 
484 sERROR 20 
485 001510 015004 EM20 ;DATA ER_FROM I/0 PAGE (XCSR) 
486 001512 015106 DHe ;ERRPC TSTNUM BUSADR ADRS EXPCT RCVD 
487 001514 015226 DT2 ;SERRPC TSTNUM $BDADR $GDADR $GDDAT $B8DCAT 
488 001516 000000 0 
489 
490 
133 ;DRV11B BUS REGISTER ADDRESS POINTERS 
493 001520 172410 DRVWCR: 172410 ;WORD COUNT 
494 001522 172412 DRVBAR: 172412 ;BUFFER ADDRESS 
495 001524 172414 DRVCSR: 172414 ; COMMAND/STATUS 
o38 001526 172416 DRVDBR: 172416 ;DATA BUFFER 
rs ;DRV11B VECTOR ADDRESS POINTERS 
500 001530 000124 DRVCTO: 124 ;READY, NEX Ga peewee DATIO VECTOR 
4 001532 000126 DRVCT2: 126 :NEW PSW ON I 
ar ; COMMON PROGRAM LOCATION(S) 
505 001534 000000 Uae 0 > CONTAINS TEST NUMBER ON ERROR 
506 001536 000001 DMA 1 ;DEVICE MAP = EA BIT SAYS TEST THAT DRV11B 
507 901540 000000 CORS?: 0 sCONTAINS 1ST NON-EXISTANT MEM ADRS 
508 001542 015400 DBUFP: DBUF ;CONTAINS CURRENT 4K NPR BUFFER ADRS 
509 001544 000000 IOPAGE: 0 :CONTAINS ADDRESS FOR I/O TRANSFERS 


510 001546 000000 KDF: 0 ;1F KDF11-B 


F 2 
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CVDRAB.P11 11-SEP-81 12:21 PROGRAM START , SEQ 0018 
513 .SBTTL PROGRAM START 
514 001550 : 
(1) .SBTTL INITIALIZE THE COMMON TAGS 
(1) >:CLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 001550 012706 001100 MOV ASCMTAG RS ::FIRST LOCATION TO BE CLEARED 
(1) 001554 005026 CLR (R6) + S:CLEAR MEMORY LOCATION 
(1) 001556 022706 001140 CMP #SWR,R6 ;;DONE? 
(1) 001562 001274 BNE .-6 ::LOOP BACK IF NO 
(1) 001564 012706 001100 MOV HSTACK, SP Zz SETUP THE STACK POINTER 
(1) s INITIALIZE A FEW VECTORS 
(1) 001570 012737 012446 000020 MOV ASSCOPE , a#IOTVEC :; 107 VECTOR FOR SCOPE ROUTINE 
(1) 001576 012737 000340 000022 mov #340, aM1OTVEC+2 ::LEVEL 7 
(1) 001604 012737 012104 000030 MOV HSERROR, @MEMTVEC : Zen VECTOR FOR ERROR ROUTINE 
(1) 001612 012737 000340 000032 MOV #340 ,awEMTVEC#2 = :LEVEL 7 
(1) 001620 012737 014066 000034 MOV ASTRAP, @#TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
(1) 001626 012737 000340 000036 MOV #340, @#TRAPVEC+2;LEVEL 7 
(1) 001634 012737 013662 000024 MOV #SPWRDN, AAPWRVEC ; ;POwER FAILURE VECTOR 
(1) 001642 012737 000340 000026 MOV #340, aMPWRVEC+2 ::LEVEL 7 
(1) 001650 005037 001160 CLR $TIMES oT NITIALIZE NUMBER OF ITERATIONS 
(1) 001654 005037 001162 CLR $ESCAPE *:CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 001660 112737 000001 001115 MOVB #1, SERMAX > ALLOW ONE ERROR PER TEST 
(1) 001666 012737 001666 001106 MOV . -$SLPADR i: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001674 012737 001674 001110 MOV "SLPERR ETUP THE ERROR LOOP ADDRESS 
(2) ::SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR rad IS 
(2) >:EQUAL TO A "'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 001702 013746 000004 MOV @#ERRVEC,-(SP) 3; SAVE ERROR VECTOR 
(2) 001706 012737 001742 000004 MOV #648, a#ERRVEC ::SET UP ERROR VECTOR 
(2) 001714 012737 177570 001140 MOV #DSWR,SWR ::SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001722 012737 177570 001142 MOV ADDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(2) 001730 022777 177777 177202 CMP #-1,aSWR i;TRY TO REFERENCE HARDWARE SWR 
(2) 001736 001012 BNE 66$— ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) 3 SAND THE HARDWARE SWR IS NOT = -1 
(2) 001740 000403 BR 65$ ‘BRANCH IF NO TIMEOUT 
(2) 001742 012716 001750 64$: MOV #65$, (SP) <OSET UP FOR TRAP RETURN 
(2) 001746 000002 RTI 
(2) 001750 012737 000176 001140 65$: MOV HSWREG, SWR ::POINT TO SOFTWARE SWR 
(2) 001756 012737 000174 001142 MOV #DISPREG, DISPLAY 
(2) 001764 012637 000004 66$: MOV (SP)+,aMERRVEC ;;RESTORE ERROR VECTOR 
(2) 001770 005037 001202 CLR GPASS :CLEAR PASS COUNT 
(2) 001774 132737 000200 001215 BITB  #APTSIZE,$ENVM TEST USER SIZE UNDER APT 
(2) 002002 001403 BEQ 67$ YES,USE NON-APT SWITCH 
(2) 002004 012737 001216 001140 ns MOv #SSWREG, SWR S=NO,USE APT SWITCH REGISTER 
515 002012 012700 001520 START1: MOV #DRVWCR,RO :SET UP REG ADRS POINTERS 
516 002016 013701 001250 MOV $BASE ,Ri [GET BASE ADRS 
517 002022 010120 SETUP2: MOV R1, (RO)+ ; LOAD EM 
518 002024 062701 000002 ADD #2,R1 
519 002030 022700 001530 CMP #DRVDBR+2,RO +: ALL_~DONE? 
$20 002034 001372 BNE SETUP2 ‘BR IF NOT 
521 002036 912700 001530 MOV #DRVCTO,RO :SET UP DRV11B VECTOR ADRS POINTER 
$22 002042 013701 001244 MOV $VECT1.R1 [GET BASE VECTOR ADRS 
523 002046 042701 170000 BIC #170000,R1 =CLR OUT PRIORITY BITS 
524 002052 010120 SETUP3: MOV R1,(RO)+ ; 
525 002054 062701 000002 ADD #2,R1 ‘POINT TO NEXT 
526 002060 022700 001534 CMP #DRVCT2+2,RO ALL DONE? 


so ee a ab He INTERFACE 


DRAB.P11 

527 002064 
002066 
002072 
002074 


002100 


002140 
002220 


WWNWWNWWNWWNWWN WWW — 3  POMPONDN NNN NNN Ss A Mw Ow 
CONAOUSWWR A OOw ww ewww ve w~vevvurvuvuvuwwv YW 

oO 

So 

Mm 

mM 

Nm 

So 


UOMAAMAMA UI U UIT UU A ARS RR RR RRR RRA RRA AOU 


542 002300 


546 002304 


564 002424 


11-SEP-81 
001372 


005227 
001052 
104401 


005737 


112737 
000427 


005227 


104401 


012700 


013700 


177777 
002142 
000042 
001214 
001140 


000001 


177777 
000001 
015254 
001546 
001546 
001546 


000200 
001540 


014603 


020000 
002322 


017777 


177400 
000001 
007674 


001206 


000001 
000176 


001134 


001134 


000131 


176646 


000004 


000004 


001536 
001536 


001204 
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ITIALIZE THe COMMON TAGS 


BNE SETUP3 7;BR IF NOT 
-SBTTL TYPE PROGRAM NAME 
:; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

INC #~1 sFIRST TIME? 

fa CH IF NO 

TYPE ,65$ TYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

TST a442 7sARE WE ae ty UNDER XXDP/ACT? 


DI 
IN 


BNE 66$ ; BRANCH IF 
CMPB SENV,#1 ;;ARE WE RUNNING UNDER APT? 
BEQ 66$ ; BRANCH IF YES 
CMP SWR ,ASWREG 2+ SOF TWARE SWITCH REG SELECTED? 
BNE 67$ BRANCH IF NO 
GTSWR Z:GET SOFT-SWR SETTINGS 
BR 67$ 
oat MOVB #1,$AUTOB 3sSET AUTO-MOLL INDICATOR 
BR 64$ ;GET OVER THE ASCIZ 
ji6°*: eASCIZ = <CRLF>#MD-11- ~cvDRA-B DRV11B DMA INTERFACE DIAG #<CRLF> 
INC a~1 FIRST PASS? 
BNE 100$ BRANCH IF NO 
CMPB #1,$AUTOB sMANUAL INTERVENTION PERMITTED? 
BEQ 100$ :BR IF_NO 
TYPE, KDF11B sASK ABOUT KDF11-B8 
RDCHR [READ ANSWER 
MOV (SP) +,KDF STORE ANSWER 
TYPE, KDF ;ECHO ANSWER 
CMPB KDF ,#131 31S IT KDF11-B? 
BNE 100$ [BRANCH IF NOT 
B1SB #B1T07,aSWR c1F YES,SET SWREG 
100$: TST CORSZ i TEST Ri _ PASS 
BNE CORSZR :BR 
TYPE, WARN TELL. THE "OPERATOR TO TURN OFF DMA REFRESH 


SISOS SISSIES IOS ISIS III IOI IOI IOS i io 


*LET'S SEE HOW MUCH MEM WE HAVE 


SKE RE KREREEEE EEE KEE EE REKEEERERE EERE EEK 


CORSZR: MOV #20000,R0 :USE RO TO LOOK 
MOV #O$,aMERRVEC  : SET UP TIME OUT RETURN ADRS 
1$: TST (ROS + : TAKE A LOOK 
BR 1$ SUNTIL TIMEOUT 
2$: BIC #17777. .R0 ‘POINT TO ist NON-EXSISTANT 4K BLK 
MOV RO.C “SAVE FOR LATER 
MOV HEARVEC 2. aFERRVEC sRESTORE VECTOR 
MOV #DBUF , DBUF s INITIALIZE TO LOWEST 4k 
MOV #0,$UNIT “SET UP UNIT COUNT 
MOV $DEVM, DMAP [GET THE # & POSITION OF DRV11B'S 
BIC #177400, DMAP UP TO 8 ONLY 
BEQ RESTR :GO CONTINUE AS IF SOMETHING WAS SELECTED 
BIT AT DMAP ‘IS 1ST DRV11B SELECTED? 
BNE RESTRT ‘BR IF SO 
JMP NXDEV1 [NO = GO ADVANCE BASE DRV11B ADDRESSES 
RESTRI: MIPS #200 :SET PRIORITY TO HIGHEST LEVEL 
MOV #STACK, SP sALWAYS RESET STACK 


MOV SUNIT,$DEVCT | :LOAD APT COUNTER 
MOV $UNIT.RO ‘MAKE AN INDEX 


SEQ 0019 
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CVDRAB.P11 11-SEP-81 12:21 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0020 
565 002430 006300 ASL RO VALUE 
566 002432 013760 001520 001260 MOV DRVWCR, $DDWO(RO)’ ;SAVE THE GUS ADDRESS 
567 002440 000005 RESET INITIALIZE DRV11B BEFORE TESTING 
568 PPITITITICC CITT TTT T TTT I ITI TITTiTi TTT titi ti titicitititT rir itis! 
(3) STEST 1 TEST THAT ALL DRV11B REGS ARE ACCESSIBLE 
(3) DOO IISIIIIOIIIISIOIUIOIIIOIOIOIDIIIIIIOIIIOIIIOIIIOIUIOIIOIIOIIIUIUIIOI III toi init 
(2) 002442 000240 1811: <NOP> 
(1) 002444 012737 002460 001106 MOV #10$,$LPADR $2} SCOPE LOOP ADDRESS 
(2) 002452 012737 000001 001200 MOV #1,$TESTN sSET TEST a “N APT MAIL BOX 
569 002460 112737 000001 001102 10$: MOVB #1,$TSTNM :SET TO TEST 
570 002466 012737 002522 001110 MOV =: #18, SLPERR :SET UP SCOPE [OOP ADRS 
571 002474 005037 001124 CLR $GDDAT O DATA COMPARE 
572 002500 005037 001126 CLR $BDDAT NO DATA_COMPARE 
573 002504 012737 002540 000004 MOV A2$ ,AMERRVEC SET UP TIMEOUT RETURN ADDRS 
574 002512 013700 001520 MOV DRVWCR,RO ;SET UP 1ST DRV11 BUS ADRS 
575 002516 012701 000004 MOV #4,R1 SET UP REG COUNT 
576 002522 010037 001122 1$: MOV RO, $BDADR ;SET UP CURRENT DRV BUS ADRS 
577 002526 005710 | TST (RO) sSEE IF THERE 
578 002530 005770 TST (RO)+ ;BUMP _T T 
579 002532 005301 DEC R1 COUNT 4 OF THEM 
580 002534 001403 BEQ 3$ :BR IF ALL DONE 
581 002536 000771 BR 1$ TRY NEXT 
582 002540 022626 2$: CMP (SP)+,(SP)+ SFIX STACK SINCE _NO RTI 
583 002542 104001 ERROR 1 BUS ADRS hap eg DID NOT RESPOND 
eae 002544 012737 000006 000004 3$: MOV HERRVEC+2,a#ERRVEC ;RESTORE LOC 4 
586 CDI IIIS IOIIOIIIDIOIIOIIOIIIOISIIOIIIIIOIIOIIISIOIIIIIOIDIOIOIUIOIOOI tot 
(3) i*TEST 2 TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
(3) DDO IIIS ISIIIIIIOIDIIOIOIOISIISIIOIIOIIOIOIIIOIUOIIIIIUUIIOIIDIOUIOIIOII IDI I int 
(2) 002552 000004 TST2: SCOPE 
587 002554 012737 002600 001110 MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
588 002562 013737 001520 001122 MOV DRVWCR,$BDADR ;SET UP WC REG ADRS 
589 002570 005000 CLR RO 3RO SAYS SHIFT PTRN WHEN 0 
590 002572 012737 177776 001124 MOV #-2,$GDDAT 24 yr! 0 RIGHT TO LEFT 
591 002600 013777 001124 176712 18: MOV S$GDDAT ,aDRVWCR DW 
592 002606 017737 176706 001126 MOV @DRVWCR, $BDDAT READ. IT BACK 
593 002614 023737 001124 001126 CMP $GDDAT,SBDDAT ;CORRECT? 
594 002622 001401 BEQ es BR IF SO 
595 002624 104002 ERROR 2 :WORD COUNT WRITE/READ FAILURE 
596 002626 005137 001124 2$: COM $GDO AT :COMPELEMENT ZERO 
597 002632 005100 COM av :RO SAYS SHIFT LEFT WHEN = 0 
598 002634 001361 BNE 1$ :TRY THE COMPLEMENT IF RO NOT 0 
599 002636 006337 001124 ASL $GDDAT : COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
600 002642 005237 001124 INC $GDDAT KEEP LSB SET 
of 002646 103754 BCS 1$ sAGAIN TILL ALL PATRNS DONE 
603 DRE ERE ER RRR EER EAE RE REE EERE EE 
(3) TATEST 3 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
(3) SEER EEE EEE REET EERE REE ER ERE EE ee 
(2) 002650 000004 $13: SCOPE 
604 002652 012737 002676 001110 MOV #1$,S$LPERR sSET UP SCOPE LOOP ADRS 
605 002660 013737 001522 001122 MOV DRVBAR,$BDADR ;SET UP BA REG ADRS 
002666 005000 CLR RO :RO SAYS SHIFT PTRN WHEN 0 
7 002670 012737 177774 001124 MOV 4-4, $GDDAT FLOAT Q RIGHT TO LEFT 
608 002676 013777 001124 176616 1$: MOV $GDDAT,aDRVBAR :LD BA 
609 002704 017737 176612 001126 MOV @DRVBAR , $BDDAT READ IT BACK 


Sak eecasctaasidican eet caatat eo apni ude metas dah aaah een dace ton etek 
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12 
CVDRAB.P’1 =. 11=SEP=81 12:21 13 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) SEQ 0021 
610 002712 042737 000001 001126 BIC #BITOO,$BDDAT  ;DON'T WANT BITOO 
611 002720 023737 001124 001126 CMP $GDDAT, $BDDAT ; CORRECT? 
612 002726 001401 "EQ 2$ :BR IF SO 
613 002730 104002 ERROR 2 7BUS ADRS WRI"=/READ FAILURE 
614 002732 005137 001124 2$: COM $GDDAT : COMPLEMENT ZERO 
615 002736 042737 000001 001124 BIC #B1T00,$GDDAT T 00 NOT INVOLVED 
616 002744 005100 COM RO ‘RO. SAYS SHIFT LEFT WHEN = 3 
617 002746 001353 BNE 1$ Y THE COMPLEMENT IF RO NOT 0 
618 002750 006337 001124 ASL $GDDAT : COMPLEMENT WAS DONE = NOW SHIFT ZERO LEFT 
619 002754 103004 BCC TST4 >;NEXT TEST IF BIT 15 DONE 
620 002756 062737 000002 001124 ADD #2, $GDDAT :KEEP ADDR LSB SET 
621 002764 000744 BR 1$ AGAIN TILL ALL PATTERNS DONc 
623 FREER EE EERE REE REE EKEEEEEEEREEEKEEEKRK EE 
(3) TRTEST 4 TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
(3) FREER KEE EEE EERE REE EEKK EE 
(2) 002766 000004 +814: SCOPE 
624 002770 012737 003014 001110 MOV #1$,$LPERR ;SET UP SCOPE LOOP ADRS 
625 002776 013737 601526 001122 MOV DRVDBR,$BDADR SET UP DB REG ADRS 
626 003004 005000 CLR RO =RO SAYS SHIFT PTRN WHEN 0 
627 003006 012737 177776 001124 MOV #-2,$GDDAT :FLOAT 0 RIGHT TO LEFT 
628 003014 013777 001124 176504 1S: MOV $GDDAT,@DRVDBR :LD DB 
629 003022 017737 176500 001126 MOV QDRVDBR,$BDDAT READ IT {BACK 
630 003030 023737 001124 001126 CMP SGDDAT,$BDDAT CORRECT? 
631 003036 001401 BEQ 2$ :BR IF SO 
632 003040 104002 ERROR 2 :DATA BUFFER WRITE/READ FAILURE (LOOP BACK) 
633 003042 005137 001124 2$: COM $GDDAT : COMPLEMENT ZERO 
634 003046 005100 COM RO :RO SAYS SHIFT LEFT WHEN = 0 
635 003050 001361 BNE 1$ Y THE COMPLEMENT IF RO NOT 0 
636 003052 006337 001124 ASL S$GDDAT : COMPLEMENT WAS DONE ~ NOW. SHIFT ZERO LEFT 
637 003056 005237 001124 INC $GDDAT [KEEP LSB SET 
638 003062 103754 BCS 1$ ZAGAIN TILL ALL PATRNS DONE 
640 FERRER EERE REE RE EEE ERE EERE 
(3) TRTEST 5 TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
(3) FREAK ERE EERE ERE EERE EEK 
(2) 003064 000004 1815: SCOPE 
641 003066 015,00 001526 MOV DRVDBR RO :GET DB REG ADRS 
642 603072 010037 001122 MOV RO, $BDADR :SET UP DB REG ADRS 
643 003076 005010 CLR (RO) :ZERO DATA BUFFER REG 
644 003100 012737 177177 001124 MOV #177177,$GDDAT LD EXPECT 
645 003106 012737 077776 001126 MOV #77776,$BDDAT | :SEND DATA FROM ‘BDDAT*’ 
646 003114 153760 001126 0600001 BISB  $BDDAT.1(RO)  :LOAD HI BYTE DB 
647 003122 153710 001127 BISB  $BDDAT+1,(RO)  :LOAD LO BYTE DB 
648 003126 011037 001126 MOV (RO) ,$BDDAT :READ IT BACK 
649 003132 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 
650 003140 001401 BEQ TST6 :;NEXT TEST IF SO 
691 003142 104002 ERROR 2 :DATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 
653 FARRAR EEE EERE EEE AEREEEREEEREEREEEEEREKEK EEE 
(3) ZATEST 6 TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 
(3) SEAR EERE EAR EERE REERREREKEKEKEE EE ane 
(2) 003144 000004 1816: SCOPE 
(1) 003146 012737 000010 001160 MOV #10, STIMES : 700 10 ITERATIONS 
654 003154 005037 001124 CLR SGDDAT LD EXPECTED 
655 003166 012777 177777 176332 MOV #-1,aDRVWCR ‘Ser ALL BITS - WC REG 
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DI E 5-13 
T6 TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 
MOV #-2, aDRVBAR :SET ALL BITS = BUS ADRS REG 
MOV #-1. aDRVDBR ;SET ALL BITS = DB OUT REG 
RESET DO A BUS RESET 
MOV @DRVWCR.SBDDAT READ WC REG 
BEQ 1$ ‘BR IF CLRED 
MOV DRVWCR,SBDADR SET UP WC REG ADRS 
ERROR 3 “RESET FAILED TO CLR WC REG 
1$: MOV @DRVBAR SBDDAT READ BUS ADRS REv 
BIC #BITOO,$BDDAT :DON'T WANT BITTOO 
BEQ 2$ "BR IF pCRED 
MOV DRVBAR,$BDADR SET _UP_BA REG ADRS 
ERROR 3 RESET FAILED TO CLR BUS ADRS REG 
2$: MOV aDRVDBR, $BDDAT ;READ DATA BUFFER REG 
BEQ TST7 ::NEXT TEST IF CLRED 
MOV DRVDBR,$BDADR :SET UP DB REG ADRS 
ERROR 3 ‘RESET FAILED TO CLR DATA BUFFER OUT REG 
SD IIR EERE KER EEE REE EEE EERE EREREREREREEEEE 
S*TEST 7 TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN) 


FERRE REE EEEEEEREREREREREREEEREEEE 


TST7: SCOPE 


MOV #10, $TIMES :;D0. 10 ITERATIONS 

MIPS #200 :DON'T WANT ANY_INTRS 

JSR RS, SETVEC SET UP INTR RETURN ADRS IN CASE 

3$ ‘RETURN TO 3$ ON ILLEGAL INTR 

MOV 1$,$LPERR ‘SET UP SCOPE LOOP ADRS 

MOV DRVCSR,$BDADR :SET UP CSR ADRS 

MOV #160000 ,RO [START AT 0 = HI BITS FOR NOISE 
1$: MOV RO, $GDDAT =LD EXPECTED 

BIC #167201,$GDDAT MASK TO WRITEABLE BITS 

MOV RO, @DRVCSR ‘LD CSR 

MOV @DRVCSR,$BDDAT READ IT BACK 

BIC #7200,$BDDAT DON'T LOOK AT STAT & RDY BITS 

CMP $GDDAT, $BDDAT ; CORRECT 

BEQ 2$ F $0 

ERROR 2 :CONTROL/STATUS REG WRITE/READ FAILURE 
2$: ADD #2,RO ‘ADVANCE COUNT PATTERN 

BNE 1$ ‘WRITE NEXT PATTERN IF NOT ALL TESTED 

BR 4$ °GO RESTORE VECTOR 
3$: CMP (SP)+, (SP)+ ‘FIX STACK - SHOULD NOT HAVE INTR'ED 

BIS #200, $GDDAT ;CORREC EXPECTED 

MOV QDRVCSR,$BDDAT READ CSR 

BIC #7000,$BDDAT  :DON'T WANT ‘STAT’ BITS 

ERROR 5 ‘CPU FAILED TO LOCK OUT DRV11B INTR REQ 
4$: JSR PC .RSTVEC *GO RESTORE VECTOR 
LEAR ERE REE EERE EERE EEEEEEEEEEEEEER EERE 
S*TEST 10 TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 
SLEEK RE EAEEEAREREEEEERRREREEKEERRE EES 
TST10: SCOPE 

MOV #10, $TIMES ::DO0 10 ITERATIONS 

MOV DRVCSR,$BDADR :SET UP CSR ADRS 

MOV #200, $GDDAT ‘LD EXPECTED 

MOV #-2, aDRVCSR [LD ALL CSR BITS 


RESET D0 A BUS RESET 
MOV @DRVCSR,$BDDAT ;READ CSR 


SEQ 0022 
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MAINDEC-11-CVDRA-B8 ad DMA INTERFACE DIA 
CVDRAB.P11 11-SEP-81 12:21 T10 TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR SEQ 0023 
704 003504 023737 001124 001126 CMP $GDDAT ,$BDDAT co 
705 003512 001401 BEQ TST11 NEXT TEST IF CSR CLRED & READY SET 
A 003514 104003 ERROR 3 “RESET FAILED TO SET UP THE CSR 
708 DORI III IOI III IOIOIOIIOIIOI III TOIT OAS ANS SAAA ASA SISA SSS SSS SISSSISOASN 
(3) s*TEST 11 TEST THAT THE CSR IS BYTE ADDRESSABLE 
(3) SDSS ICISISIIISIIDIDIOITISIIIIIIIOIUIUIOIDIOIOIOIOIITIOIIO TTT TTT OTT TTT TTT IIE 
(2) 003516 000004 TST11: SCOPE 
709 003520 013700 001524 MOV ight ~ ;GET CSR ADRS 
710 003524 010037 001122 MOV RO, $BDA ;SET UP CSR ADRS 
711 003530 005010 CLR (RO) :ZERO CSR 
712 003532 012737 010300 001124 MOV #19300. SGDDAT LD EXPECTED ss 
713 003540 012737 040020 001126 MOV #40020. $BDDAT ;SEND DATA FROM ‘'BDDAT'' - USE MAIN + IE 
714 003546 153760 001126 000001 BISB SBDDAT,1(RO) SLOAD HI BYTE CSR 
715 003554 153710 001127 BISB SBDDAT+1, (RO) ;LOAD LO BYTE CSR 
716 003560 011037 001126 MOV (RO) ,SBDDAT TREAD IT BACK 
717 003564 023737 001124 001126 CMP $GDDAT, $BDDAT ;CORRECT? 
718 003572 001401 BEQ 1$ ;BR IF SO 
719 003574 104002 ERROR 2 ;DATA ERROR ON BYTE ADDRESSING THE CSR 
uy 003576 005010 1$- CLR (RO) :ZERO CSR BEFORE ADVANCING 
722 AIO IUIIIUIIIDIISIIOIIOIDIIOI IIS IIDIOIIIOISIOIOIIUIOIIOIOISIOIDIOIOIOI TIO TOTO TOT TATE 
(3) SSTEST 12 TEST THAT THE 3 ‘‘FNCT’’ BITS CONTROL THE 3 ‘’STAT'' B"TS (COUNT PTRN) 
(3) TUBES IOIIIUIIOIISISIIEIEIEIEIEIEISISIIOI IOUS IID OI IOIOIIOIOIOIOI IOI 
(2) 003600 000004 TST12: SCOPE 
723 003602 012737 003630 001110 MOV #1$,$LPERR ;SET UP oy a ADRS 
724 00361G 013737 001524 001122 MOV DRVCSR,$BDADR SET UP CSR ADRS 
725 003616 012737 007000 001124 MOV #7000, $GDDAT 3LD EXPECTED 
726 003624 012700 000016 MOV #16,R0 [RO CONTAINS “FNCT’* BITS WRITTEN 
727 003630 010077 175670 1$: MOV RO, aDRVCSR sWRITE INTO “‘FNCT'’ BITS 
728 003634 017737 175664 001126 MOV @DRVCSR,$BDDAT ;READ BACK THRU ‘'STAT'' BITS 
729 003642 042737 170777 001126 BIC #170777, $BDDAT MASK TO ‘’STAT’’ BITS ONLY 
730 003650 023737 001124 001126 CMP SGDDAT , $BDDAT ; CORRECT? 
731 003656 001401 BEQ es BR IF SO ni 
732 003660 104004 ERROR ENCT" BITS FAILED TO SET ‘'STAT’' BITS (LOOP BACK) 
733 0v35662 162737 001000 001124 2%: SUB 71000, $GDDAT ;CHANGE TO NEXT EXPECTED 
734 903670 162700 000002 SUB #2,R0 DECREASE COUNT PATTERN 
ey 003674 100355 BPL 1$ :D0 AGA:N UNTIL 0 TESTED 
737 LL REE RRR ERR ERE EERE RRA ERE RE 
(3) ;*TEST 13 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
(3) SLR EERE RRR REE ERE EERE REE REE RE 
(2) 003676 000004 TST13: SCOPE 
(1) 003700 012737 000010 001160 MOV #10,STIMES 3:D0 10 ITERATIONS 
738 003706 106427 000200 MIPS —- #200 [DONT WANT INTR YET 
739 003712 00005 RESET SET THE READY FLAG BY INIT 
740 003714 012777 003774 175606 MOV #1$,aDRVCTO ;SET UP PREMATURE INTR RETURN ADRS 
741 003722 013737 001524 001122 MOV DRVCSR, + os ;SET UP CSR ADRS 
742 003730 012737 000300 001124 MOV #300, $GDDAT [LD EXPECTED estos + IE) 
743 003736 106427 000000 MTPS #0 TALLOW AN INTR 
744 003742 021616 CMP (SP), oe ) sSTALL 
745 003744 012777 004010 175556 MOV #2$,aDRVCTO SET UP EXPECTED INTR RETURN ADRS 
746 003752 052777 000100 175544 BIS faite, @DRVCSR sENABLE THE EXPECTED INTERRUPT 
747 003760 021616 CMP (SP), (SP) : STALL 
748 003762 017737 175536 001126 MOV aDRVCsR, $BDDAT GET THE CSR 
749 003779 104005 ERROR 5 TREADY FAILED TO CAUSE AN INTERRUPT 
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113 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
BR 3$ :GO RESTORE VECTOR 
1$: CMP (SP)+,(SP)+ SHOULD NEVER GET HERE - IE NOT WORKING? 
MOV @DRVCSR,SBDDAT GET THE CSR 
ERROR 5 [READY INTERRUPTED WITHOUT THE IE BIT 
BR 3$ [GO RESTORE VECTOR 
2$: CMP (SP)+, (SP)+ ZF IX STACK SINCE NO RETURN 
MOV @DRVCSR,SBDDAT REA D STATUS 
CMP $GDDAT,$BDDAT CORR 
BEQ 3$ :BR IF SO 
ERROR 5 TINCORRECT STATUS ON READY INTR 
3$: JSR PC RSTVEC [GO RESTORE VECTOR 
DEERE RRR EERE EEE ERE EEE ERE EEEKEKREREEREREEEEREEREREEEE 
TRTEST 14 TES] THAT GO CLRS READY & FNCT 2 WILL SET IT 


SISA OIIOI IO I OIOIIOIUISIOIDISISISIISIIIDIIOIIDIUIDIIOIOIDIOIOIOIDIOIOIOSI EIST TE EE 
TST14: SCOPE 

MTPS #200 ;DONT WANT ANY INTRS 
MOV DRVCSR,$BDADR + 4 UP CSR ADRS 

$GDDAT PECT 


G 0 
MOV #1, aDRVCSR > SET . WHICH SHOULD CLR READY 
MOV @DRVCSR,S$BDDAT READ THE CSR 

CMP + paeletesagast: : CORRECT? 


‘BR IF SO 
ERROR 6 ‘THE GO BIT FAILED TO CLR READY 
1$: BJS #4, aDRVCSR ‘FNCT 2 SHOULD SET READY 

MOV #2204,$GDDAT  :LD EXPECTED 

MOV QDRVCSR,$BDDAT :GET CSR 

CMP $GDDAT.$BDDAT  :CORRECT? 


BEQ TST15 t:NEXT TEST IF SET 

ERROR 6 ‘FNCT 2 (VIA ATIN) FAILED TO SET READY 
TREE REE REE REE REE K 
S*TEST 15 TEST THAT READY CONTROLS ‘BAR' BITOO 
FLERE REE EEE EEE EERE EERE KEKE KEE EREEEREEEREREE 
TST15: SCOPE 

MOV #4, aDRVCSR :SET READY 

MOV DRVBAR, SBDADR *SET UP BAR ADRS 

MOV #1,$GDDAT ;EXPECT LSB OF BAR 

CLR @DRVBAR BAR 

MOV @DRVBAR,$BDDAT :READ BAR 

CMP SGDDAT, $BDDAT : CORRECT? 

BEQ 1$ :BR IF SO 

ERROR 2 ‘ROO. FAILED TO READ A ONE(SB TIED TO RDY) 
1$: MOV #1, a@DRVCSR [SET GO(CLRS BAR BITOO) 

MOV @DRVBAR, $BDDAT :READ BAR 

BEQ 2 ‘BR IF ZERO 

CLR $GDDAT SEXPECTED ZERO 

ERROR 2 ‘WHEN RDY CLRED-AOO FAILED TO READ A ZERO 
2$: MOV #4, aDRVCSR ‘INSURE RDY SET BEFORE ADVANCING 
LUA EKEEEREKEEEEEEEEREREKRREKEEE 

SeTEST 16 TEST THAT "CYCLE' WILL CLOCK THE DBR (IN) 


POSER ESESSSZASSASSZALLALLALARESESASLELE EEE EES ASE ESE SERRE RRS RARER ES SY 
T8116: SCOPE 
MOV DRVDBR,$BDADR ;SET UP DBR ADRS 
MOV #125252,$GDDAT :LD EXPECTED 


SEQ 0024 


SS 


M 2 
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CVDRAB.P11 11-SEP-81 12:21 116 TEST THAT ‘CYCLE’ WILL CLOCK THE DBR (IN) SEQ 0025 


797 004260 013777 001124 175240 MOV $GDDAT,@DRVDBR ;LD DBR WITH #125252 
798 004266 012777 000400 175230 MOV #400,@DRVCSR SET CYCLE = SHOULD CLK DBR (IN) 
004274 O12 052525 175224 MOV #52525,@DRVDBR :CHANGE DBR (OUT) DATA = SHOULD NOT ATFECT (IN) 
800 004302 017737 175220 001126 MOV @DRVDBR,$BDDAT READ DBR 
801 004310 023737 001124 001126 CMP $GDDAT, $8DDAT ; CORRECT? 
802 004316 001401 BEQ 1$ “BR IF SO 
803 004320 104017 ERROR 17 'CYCLE DID NOT LATCH DBR (IN) DATA 
804 004322 042777 000400 175174 1S: BIC #400,aDRVCSR  :REMOVE CYCLE 
805 004330 012737 052525 001124 MCV #52525,$GDDAT :NOW EXPECT #52525 
806 004336 017737 175164 001126 MG Y @DRVDBR,$BDDAT :READ DBR 
807 004344 023737 001124 001126 CMP SCDDAT. $BDDAT : CORRECT? 
808 004352 001401 BEQ TST1 ::;NEXT TEST IF SO 
809 004354 104002 ERROR 2 ‘DBR FAILED TO READ WHEN CYCLE CLRED (NORMAL) 
811 SRR REE REE EERE RE REE ERR EEREKEEREEEEKEEKEEK 
(3) :*TEST 17 TEST SINGLE ‘‘DATI'' NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
(3) FD ITER REE EEE REE EEE KERR REE KEE EEE ERE EE 
(2) 004356 000004 TST17: SCOPE 
812 004360 012737 004402 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
813 004366 004537 010112 JSR RS, SETVEC :GO SET UP INTERRUPT RETURN 
814 004372 004476 2$ ‘RETURN TO 2$ ON 
815 004374 012700 177776 MOV #-2,R0 [FLOAT ZERO RIGHT. to. LEFT 
816 004400 005001 CLR R1 =R1 CONTROLS DATA SHIFTING 
817 004402 012777 177777 175110 1$: MOV #-1,aDRVWCR [DO ONE XFER 
818 004410 012777 015400 175104 MOV #DBUF ,@DRVBAR :GET DATA WORD FE ROM “DBUF' 
819 416 010037 015400 MOV RO, DBUF ‘SET UP MEM DAT 
820 004422 012777 000101 175074 MOV #101,aDRVCSR —s-: SET 
821 004430 052777 000400 175066 BIS #400.aDRVCSR  :SET CYCLE 
822 436 106427 000000 MIPS #0 TENABLE THE INTR 
823 004442 013737 001524 001122 MO DRVCSR,$BDADR :SET UP CSR ADRS 
824 004450 012737 900700 001124 MOV #700, $GDDAT ‘LD EXPECTED 
825 004456 017737 175042 001126 MOV @DRVCSR,$BDDAT :READ THE CSR 
826 004464 042777 000100 175032 BIC #100,aDRVCSR  :CLR IE 
827 004472 104005 ERROR 5 ‘WCO FAILED TO INTERRUPT (CHECK FOR WCO) 
828 004474 000442 BR 4$ [GO RESTORE VECTOR 
829 004476 022626 2$: CMP (SP) +, (SP)+ *INTR RETURNS HERE - FIX STACK SINCE NO RTI 
830 004500 004537 010156 JSR R5,CKSTAT *GO CHECK STATUS 
831 004504 000700 700 CSR STATUS EXPECTED 
832 004506 000001 1 :# OF XFERS 
833 004510 104007 ERROR 7 ‘RETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE 
834 004512 000433 BR 4$ °GO RESTORE VECTOR 
835 004514 104010 ERROR 10 SRETURN HERE IF WC ER - EXPECTED 0 
836 004516 000431 BR 4$ 360 RESTORE VECTOR 
837 004520 104011 ERROR 11 “RETURN HERE IF BAR ER - SHOULD = DBUF+2 
838 004522 000427 BR 4$ 'GO RESTORE VECTOR 
839 004524 012737 015400 001120 MOV #DBUF,$GDADR § :RETURN HERE IF OK - SET UP XFER ADRS 
840 004532 010037 001124 MOV RO, $GDDAT [LD EXPECTED 
841 004536 017737 174764 001126 MOV @DRVDBR,$BDDAT READ DATA XFERED 
B42 004544 023737 001124 001126 CMP $GDDAT,$BDDAT :CORRECT? 
843 004552 001405 BEQ § ‘BR IF SO 
B44 004554 013737 001526 001122 MOV DRVDBR,$BDADR ;SET UP DBR ADRS 
845 004562 104012 ERROR 12 ‘DATA ER = DBR CONTAINS WRONG DATA 
846 004564 000406 BR 4$ *GO RESTORE VECTOR 
847 004566 005100 3$: COM RO ‘RETURN HERE ON GOOD DATA - NOW COM PATRN 
848 004570 005101 COM R1 ‘KEEP TRACK OF COMPLEMENT 
849 004572 001303 BNE 1$ [DO COMPLEMENT OF THIS FLOATING ZERO IF 0 
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CVDRAB.P11 11-SEP-81 TES! SINGLE ‘‘DATI’’ NPR TRANSFERS (FLOATING 0 © \MPLEMENT PATRN) SEQ 0026 
850 004574 006300 ASL RO ;WAS DONE = NOW SHIFT ZERO LEFT 
851 004576 005200 INC RO [KEEP LSB SET 
852 004600 103700 BCS 1$ SAGAIN TILL ZERO BIT IN CARRY 
Rez 004602 004737 010132 4$: JSR PC,RSTVEC 60 RESTORE VECTOR 
855 js eeeeeRNRRRaKeneKKetetteeeeenKanKKKteeeteearenaeenenereereteese 
(3) 2 *TEST 20 TEST SINGLE ‘‘DATO’’ NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
(3) FRR E EERE REE ERE REE RE EE et ht 
(2) 004606 000004 18120: SCOPE 
856 004610 012737 004632 001110 MOV #1$,$LPERR ;SET UP SCOPE LOOP ADRS 
857 004616 004537 010112 JSR RS,SETVEC :GO SET UP pag RE TURN 
858 004622 004720 2$ [RETURN TO 2$ ON INT 
859 004624 012700 177776 MOV #-2,R0 ;FLOAT ZERO RIGHT ‘On LEFT 
860 004630 005001 CLR R1 :R1 CONTROLS DATA SHIFTING 
861 004632 012777 177777 174660 1$: MOV #-1,aDRVWCR :DO ONE XFER 
862 004640 012777 015400 174654 MOV #DBUF @DRVBAR WRITE Oaiee err TO ‘DBUF*’ 
863 004646 010077 174654 MOV @DRVDBR ;SET UP DATA IN DBR 
864 004652 012777 000103 174644 MOV Roe aDRVCSR SET IE, GO & FNCT1 (C1 CONTROL) 
865 004660 052777 000400 174636 BIS #400, aDRVCSR TSET CY CLE 
866 004666 106427 000000 MTPS #0 sENABLE THE INTR 
867 004672 013737 001524 001122 MOV DRVCSR,$BDADR 7SET UP CSR ADRS 
868 004700 012737 001702 001124 MOV #1702, $GDDAT iLD ees ae . 
869 004706 017737 174612 001126 MOV @DRVCSR,$BDDAT :READ_T HE CSR 
870 004714 104005 ERROR 5 WCO FAILED TO INTERRUPT (CHECK FOR WCO) 
871 004716 000442 BR 4$ G0 RESTORE VECTOR 
872 004720 022626 2$: CMP (SP)+,(SP)+ 7 INTR RETURNS HERE = FIX STACK SINCE NO RTI 
873 004722 004537 010156 JSR R5,CKSTAT 60 CHECK STATUS 
874 004726 001702 1702 :CSR STATUS EXPECTED 
875 004730 000001 1 tA F XFERS 
876 004732 104007 ERROR 7 RETURN HERE IF ee As - EXPECTED STAT C, 
877 :CYCLE, READY, IE & FNCT 1 
878 004734 000433 BR 4$ 3G0 RESTORE VECTOR 
879 004736 104010 ERROR 10 ;RETURN HERE IF a. ER - EXPECTED 0 
880 004740 000431 BR 4$ 3GO RESTORE VECT 
881 004742 104011 ERROR 11 RET URN HERE IF BAR ER = SHOULD = DBUF +2 
882 004744 000427 BR 4$ 3GO RESTORE VECTOR 
883 004746 012737 015400 001120 MOV AMDBUF , ++ a TRETURN HERE IF OK = SET UP XFER ADRS 
004754 010037 001124 MOV RO,$ DDAT 7LD EXPECTED 
885 004760 013737 015400 9001126 MOV DBUF , SBDDAT GET DATA XFERED 
004766 023737 001124 001126 CMP SGDDAT, $BDDAT :C0 ORRE“T? 
887 004774 1405 BEQ 3$ BR IF SC 
888 004776 013737 001526 001122 MOV DRVDBR ,$BDADR iSET UP DBR ADRS 
889 005004 104013 ERROR 13 A ER - MEM CONTAINS WRONG DATA 
890 005006 000406 BR 4$ ‘60 TRCSTORE VECTOR 
891 005010 905100 . 3$: COM RO ;RETURN HERE ON GOOD DATA - NOW COM PATRN 
892 005012 005101 COM R1 ;KEEP TRACK OF COMPLEMEN 
893 005014 001306 BNE 1$ D0 COMPLEMENT OF THIS FLOATING ZERO IF 0 
894 005016 006300 ASL RO ;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
895 005020 005200 INC RO [KEEP LSB SET 
896 005022 103793 BCS 1$ [AGAIN TILL ZERO BIT IN CARRY 
oo 005624 004727 010132 4$: JSR PC ,RSTVEC 7GO RESTORE VECTOR 
899 LEA ARAR RAE REAR E EATER EAA ERA RAE EERE RAEAAETRARREA TREE REE 
(3) TSTEST 21 TEST 200 “DATI'’ NPR TRANSFERS (BURST MODE) 
(3) LEAR R ARERR EERE AT ARTA A AAA AEE AERA A Tee ATR 
(2) 005030 000004 ié121: SCOPE 
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11-SEP-81 12:22 PAGE 5-18 


SFERS (BURST MODE) ) SEQ 0027 | 


3;D0_ 10 ITERATIONS 

:GO_ SET UP ie one tNTR RETURN 

:RETURN TO 1$ ON IN 

:60 LOAD BUFFER with eon atthe PATRN 
;LOAD WC REG = WILL DO 200 XFE 

SET UP ge tall ADRS 

;ENABLE THE INTR 

7SET IE & GO 

;SET CYCLE 

:SET UP CSR ADRS 

;LD EXPECTED 

;READ a. 4 CSR 

:CLR IN 


60 RESTORE V 

;INTR ota atk HERE - FIX STACK SINCE NO RTI 
760 CHECK STATUS 

CSR STATUS EXPECTED 


# OF XF 
:RETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE 
:GO_ RESTORE VECTOR 
:RETURN HERE IF +3 ER - EXPECTED 0 
:G0 he VECTOR 
;RETU N_HERE IF BAR ER = SHOULD = DBUF +620 

0 RESTORE V CTOR 

30K - SET uP LAST XFER ADRS WHERE #70707 SHOULD BE 
:LD EXPECTED 
[DBR SHOULD HAVE LAST DATUM 
ORT ECT? 


IF SO 
:SET UP DBR ADRS 
;DATA_ER ~ DBR DID NOT CONTAIN EXPECTED LAST XFER 
7GO RESTORE VECTOR 


FREER EERE REE REE EERE EEE EEE EEEEEEKEREEEREEEEEEEEE ER 


NPR TRANSFERS (BURST MODE) 


LR ERR EERE EEE EERE EERE REE EERE REE EERE EEE 


MAINDEC=11=CVDRA=B DRV11B DMA INTERFACE DIAGNOSTIC 11, 30(1046) 
CVDRAB.P11—-11=SEP=81 12:21 121 TEST 200 MNDATI NPR TRAN 
(1) 005032 012737 000010 001160 MOV #10,$TIMES 
900 005040 004537 010112 JSR RS, SETVEC 
901 063044 005142 1$ 
902 005046 004737 010336 JSR PC, LDBUF 
903 005052 012777 177470 174440 MOV #-200. ,aDRVWCR 
904 005060 012777 015400 174434 MOV #DBUF , ADRVBAR 
905 005066 106427 000000 MIPS = #0 
906 005072 012777 000101 174424 MOV #101, aDRVCSR 
907 005100 052777 090400 174416 BIS #400. aDRVCSR 
908 005106 013737 001524 001122 MOV DRVCSR,$BDADR 
909 005114 012737 000700 001124 MOV #700,$GDDAT 
910 005122 017737 174376 001126 MOV aDRVCSR, $BDDAT 
911 005130 042777 000100 174366 BIC #100, aDRVCSR 
912 005136 104005 ERROR 5 
913 005140 000434 BR 2$ 
914 005142 022626 1$: CMP (SP)+,(SP)+ 
915 005144 004537 010156 JSR R5,CKSTAT 
916 005150 000700 700 
917 005152 000310 200. 
918 005154 104007 ERROR 7 
919 905156 000425 R 2$ 
920 005160 104010 ERROR 10 
921 005162 000423 R 2$ 
922 005164 104011 ERROR 11 
923 005166 000421 BR 2$ 
924 005170 012737 016216 001120 MOV #DBUF +616, SGDADR’ 
925 005176 012737 070707 001124 MOV #70707 ,$GDDAT 
926 005204 017737 174316 001126 MOV @DRVDBR, $BDDAT 
927 005212 023737 001124 001126 CMP $GDDAT, $BDDAT 
928 005220 001404 BEQ 2$ 
929 005222 013737 001526 001122 MOV DRVDBR, $BDADR 
930 005230 104012 ERROR 1 
931 005232 004737 010132 2$: SR PC ,RSTVEC 
932 : 
TH s*TEST 22 TEST 200 ‘‘DATO"' 
(2) 005236 000004 1$T22: SCOPE 
(1) 005240 012737 000010 001160 MOV #10,$TIMES 
934 005246 004537 010112 JSR RS, SETVEC 
935 005252 005352 1$ 
936 005254 012777 177470 174236 MOV #-200. ,aDRVWCR 
937 005262 012777 015400 174232 MOV #DBUF . ADRVBAR 
938 005270 012777 177377 174230 MOV #177377,@DRVDBR : 
939 005276 106427 000000 MIPS #0 
940 005302 012777 000103 174214 MOV #103, a@DRVCSR 
941 005310 052777 000400 174206 BIS #400, a@DRVCSR 
942 005316 013737 001524 001122 MOV DRVCSR, $BDADR 
943 005324 012737 001702 001124 MOV #1702, $GDDA 
944 00533 017737 174166 001126 MOV aDRVCSR, $BDDAT 
945 005340 042777 000100 174156 BIC #100, aDRVCSR 
946 005346 104005 ERROR 5 
947 005350 000416 BR 2$ 
948 005352 022626 1$: CMP (SP)+, (SP)+ 
949 005354 004537 010156 JSR R5,CKSTAT 
950 005360 001702 1702 


— aaeeseees 


3;D0 10 ITERATIONS 
:GO SET UP INTERRUPT RETURN 
;RETURN TO 1$ ON INTR 
WORD WC REG - WILL DO 200 XFER'S 
4 UP CURRENT ADPS 
THIS wit BE WRITTEN TO MEM 
;ENABLE THE INTR 
7SET IE, FNCT 1 & GO 
SET CYCLE 
:SET_ UP CSR ADRS 
EXPECTED 


R_ENABLE 
WCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS) 
‘G0 RESTORE VECTOR 
:INTR RETURNS HERE = FIX STACK SINCE NO RTI 
>GO CHECK STATUS 
CSR STATUS EXPECTED 


R_ENABLE 
wco FAILED len (SNGL CYCL ON COULD CAUSE THIS) 


nn i a 


| 
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| CVDRAB.P11 11-SEP-81 12:21 T22 TEST 200 'DATO'' NPR TRANSFERS (BURST MODE) SEQ 0028 
951 005362 000310 200. 34 OF XFERS 
952 005364 104007 ERROR 7 RETURN HERE IF STATUS ER = EXPECTED STAT C, 
953 CYCLE, READY, 1 A NCT 1 
| 954 005366 000407 QR 2$ ‘60 RESTORE vECTO 
| 955 005370 104010 ERROR 10 ‘RETURN HERE IF uc ER = EXPECTED 0 
956 005372 000405 BR 2$ 'GO RESTORE VECT 
957 005374 104011 ERROR 11 ‘RETURN HERE IF BAR ER = SHOULD = DBUF +620 
958 005376 000403 BR 2$ GO RESTORE VECTOR 
| 959 005400 004737 010460 JSR PC, CKDAT ; RETURN HERE IF OK = NOW GO CHECK DATA 
| 960 005404 104013 ERROR 13 RETURN HERE IF DATA ER = DBR CONTAINS WRONG DATA 
| +4 005406 004737 010132 2$: JSR PC,RSTVEC “RETURN HERE IF DATA CHECK OK = GO RESTORE VECTOR 
963 DD RRR EEE ERE REE KERR ERR ERE KERR EEEEEEEEEEEEEKE 
| (3) s*TEST 23 TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF 
(3) RRR EER KEE KER ERR EERE REE EEE KEE 
| (2) 005412 000004 18123: SCOPE 
(1) 005414 012737 000010 001160 MOV #10,$TIMES ::D0 10 ITERATIONS 
964 005422 013737 001524 001122 MOV DRVCSR,$BDADR :SET UP CSR ADRS 
965 005430 004537 010112 JSR R5,SETVEC 3GO SET UP INTR RETURN 
966 005434 005544 3$ RETURN TO 3$ ON INTR 
967 005436 012700 000010 MOV #10,R0 D0 EIGHT 200 WORD XFER'S 
968 005442 005037 001126 CLA $BDDAT SUSR $BDDAT AS A COUNTER 
969 005446 012777 177470 174044 1$: MOV #-200.,aDRVWCR ;DO 200 XFERS (DATI'S) 
970 005454 012777 015400 174040 MOV ADBUF,aDRVBAR =: FROM DBUF 
971 005462 106427 000000 MTPS #0 ALLOW AN INTR 
972 005466 012777 000101 174030 MOV #101, aDRVCSR “SET IE & GO 
973 005474 052777 000400 174022 BIS #400, aDRVCSR 4h CYCLE 
974 005502 000240 NOP FREEBEE 
975 005504 000240 NOP 
976 005506 000240 NOP 
977 005510 005237 001126 2$: INC $BDDAT START COUNTING - SHOULD NEVER GET HERE 
978 005514 001375 BNE 2$ SUNTIL 64K 
979 005516 012737 000700 001124 MOV #700, $GDDAT LD EXPECTED 
980 005524 017737 173774 001126 MOV QDRVCSR,$BDDAT READ STATUS 
981 005532 042777 000100 173764 BIC #106, @DRVCSR =CLR IE 
982 005540 104005 ERROR § NO INTERRUPT ON 200 DATI'S 
983 005542 000407 BR 4$ :GO RESTORE VECTOR 
984 005544 022626 3$: CMP (SP)+, (SP)+ FIX STACK SINCE NO RTI 
985 005546 005300 DEC RO :DONE 8 TIMES” 
986 005550 001336 BNE 1$ 7BR IF NOT 
987 005552 005737 001126 TST $BDDAT : SHOULD STILL BE ZERO 
988 005556 001401 BEQ 4$ R IF SO 
989 005560 104014 ERROR 14 “BURST MD (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU 
990 005562 004737 010132 4$: JSR PC,RSTVEC :GO RESTORE VECTOR 
992 FRA EREEERRERE EERE KEKE 
(3) SSTEST 24 TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 
(3) FREER EERE ERAS KReKKK KE 
(2) 005566 000004 TST 24: SCOPE 
(1) 005570 012737 000010 001160 MOV #10, $TIMES : zD0 10 ITERATIONS 
993 005576 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
994 005604 004537 010112 JSR R5,SETVEC 3GO SET UP INTR RETURN 
995 005610 005716 3$ SRETURN TO 3$ ON INIR 
996 005612 012700 000010 MOV #10,R0 :D0_ EIGHT 200 WORD XFER'S 
997 005616 012737 000000 001126 MOV #0, $BDDAT USE $BDDAT AS A COUNTER 
998 005624 012777 177470 173666 18: MOV #-200.,aDRVWCR :DO 200 XFERS (DATI'S) 
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CVDRAB.P11 11-SEP-81 12:21 T24 TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON SEQ 0029 
005632 012777 015400 173662 MOV #DBUF , @DRVBAR ; FROM DBUF 
1000 005640 106427 000000 MTPS #0 ;ALLOW AN _IN 
1001 005644 012777 000111 173652 MOV #111, aDRVCSR :SET As FNCTS & GO 
1002 005652 052777 000400 173644 BIS #400, aDRVCSR SET CLE 
1003 005660 000240 NOP s FREE BEE 
1004 005662 005237 001126 2$: INC SBDDAT i START COUNT ING 
1005 005666 001375 BNE 2$ 9 ~- SHOULD INTR BEFORE OVERFLOW 
1006 005670 012737 004710 001124 MOV #4710, $GDDAT UD EXPE CTED 
1007 005676 017737 173622 001126 MOV @DRVCSR,$BDDAT READ STATUS 
1008 005704 042777 000100 173612 BIC #100,aDRVCSR CLR IE 
1009 005712 104005 ERROR 5 NO INTERRUPT ON 200 DATI'S (WITH SINGLE CYCLE) 
1010 005714 000423 BR 5$ :GO RESTORE VECTOR 
1011 005716 022626 3$: CMP (SP)+, (SP) + :FIX STACK SINCE NO RTI 
1012 005720 005300 DEC RO :DONE 8 TIMES? 
1013 005722 001340 BNE 1$ :BR IF NOT 
1014 005724 022737 000000 001126 CMP #0, $BDDAT ;$BDDAT SHOULD HAVE BEEN COUNTED 
1015 005732 103401 BCS 4$ :BR IF SO 
1016 005734 104015 ERROR 15 7 CPU ory LOCKED OUT WITH SINGLE CYCLE SET 
1017 005736 017737 173562 001126 48: MOV @DRVCSR, = ;READ STA 
1018 005744 012737 004710 001124 MOV #4710, $GDDAT :LD EXPECTED 
1019 005752 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 
1020 005760 001401 BEQ 5$ BR IF SO 
1021 005762 104007 ERROR 7 STATUS INCORRECT ON XFER WITH SINGLE CYCLE SET 
13s6 005764 004737 010132 5$: JSR PC,RSTVEC :GO RESTORE VECTOR 
1024 SK RRR E ERE REKKEEKEKEEEKEEKKKEKKEKREKEEEKEK 
(3) SATEST 25 TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE 
(3) FRR EERE EEE EERE REE EEERERERE EEE 
(2) 005770 000004 TST25: SCOPE 
(1) 005772 012737 000200 001160 MOV #200, $TIMES 3;D0 200 ITERATIONS 
1025 006000 004537 010112 JSR R5,SETVEC :GO SET UP INTR RETURN 
1026 004 006122 2$ ;RETURN TO 2$ ON INTR 
1027 006006 004737 010410 JSR PC,LDBUF 1 :GO SET UP DBUF sPras’ cha = PATTERN) 
1028 006012 012737 011702 006130 MOV #11702,38 :3$ CONTAINS EXPECTED STATUS 
1029 006020 012737 000001 006132 MOV #1,4$ 348 gg a THE CURRENT XFER NO # (MAX 8) 
1030 006026 106427 000000 1$: MTPS #0" ALLOW INT 
1031 006032 012777 015400 173462 MOV MDBUF ,ADRVBAR = ;SET UP CURRENT ADRS 
1032 006040 013777 006132 173452 MOV oa ae, - me ZGET XFER # 
1033 006046 005477 173446 NEG NEGATE FOR WC 
1034 006052 012777 010101 173444 MOV wO101, R SDRVCSR SET UP MAINT, IE & GO 
1035 006060 052777 000400 173436 BIS #400, aDRVCSR SET CYCLE 
1036 0 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
1037 006074 013737 006130 001124 MOV 3$,$GDDAT LD EXPECTED 
1038 006102 017737 173416 001126 MOV @DRVCSR,$BDDAT ;READ STATUS 
1039 006110 042777 000100 173406 BIC #100, aDRVCSR :DISABLE IE 
1040 006116 104005 ERROR 5 :NO INTR ON XFER (CIN MAINT MD) 
1041 006120 000440 BR 6$ :GO_ RESTORE VECTOR 
1042 006122 022626 2$: CMP (SP)+, (SP) + RETURN HERE ON INTR = FIX STACK SINCE NO RTI 
1043 006124 004537 010156 JSR R5,CKSTAT :G0 CHECK STATUS 
1044 006130 011702 3$: 11702 THIS LOCATION WILL CONTAIN EXPECTED STATUS 
1045 006132 000001 4$: 1 THIS LOCATION WILL_ CONTAIN CURRENT XFER # (MAX 8) 
1046 006134 104007 ERROR 7 RETURN HERE IF STATUS ER ~ WILL EXPECT 
1047 ;MAINT, COUNT INCREASE OF FNCT & STAT BITS, 
1048 CYCLE, READY & | 
1049 006136 000431 BR 6$ :GO_ RESTORE VECTOR 
1050 006140 104010 ERROR 10 :RETURN HERE IF WC ER ~ SHOULD BE 0 
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3 
MACY11 301046) 11-SEP-81 12:22 PAGE 5- 
TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR 


6$ 
11 


6$ 
#1002, 3$ 
#B1T13,3$ 


#10700,3$ 
4$ 

#11,4$ 

1$ 
R5,CKDAT1 
13 
PC,RSTVEc 


-21 
& SINGLE CYCLE 
:60 RESTORE VECTOR 
0 
“RETURN HERE IF OK = ADVANCE EXPECTED STATUS LOC 
:LOOK 4 i OVERFLOW 
sFNCT & STAT BITS Rwy BE ZERO THIS TIME 
SADVANCE CURRENT XFER # 
;HAVE 10 XFERS BEEN DONE 
IF NOT 
NOW GO CHECK DATA 
;4 OF X CHECK 
SRETURN HERE IF DATA ER = (WITH MAINT SET) 


;RESTORE VECTOR NEXT 
:GO RESTORE VECTOR 


FF II IIIT TTT TT TTT ITT IRIE REAR 


TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX’ 


FER RRR I TRI IIIOTTOTOTTTOI TT RE RR IOI II ITT STOTT TOT TTT TTI 


IAGNOSTIC 
CVDRAB.P11 11-SEP-81 12:21 25 
1051 006142 000427 R 
1052 006144 104011 ERROR 
1053 006146 000425 BR 
1054 006150 062737 001002 006130 ADD 
1055 006156 032737 020000 006130 BIT 
1056 006164 001403 BEQ 
1057 006166 012737 010700 006130 MOV 
1058 006174 005237 006132 S$: INC 
1059 006200 022737 000011 006132 CMP 
1060 006206 9001307 BNE 
1061 006210 004537 010526 JSR 
1062 006214 000010 10 
1063 00621 104013 ERROR 
1064 006220 000240 NOP 
1065 006222 004737 010132 6$: JSR 
1066 
1067 
| (> s*TEST 26 

(2) 006226 000004 TST26: SCOPE 
(1) 006230 012737 000100 001160 MOV 
1068 006236 012700 000002 MOV 
1069 006242 094537 010112 1$: JSR 
1070 006246 006340 23 
1071 006250 012777 177777 173242 MOV 
1072 006256 012777 160000 173236 MOV 
1073 006264 106427 000000 MTPS 
1074 006270 012777 000161 173226 MOV 
1075 006276 052777 000400 173220 BIS 
1076 006304 013737 001524 001122 MOV 
1077 006312 012737 140760 001124 MOV 
1078 006320 017737 173200 001126 MOV 
1079 006326 042777 000100 173170 BIC 
1080 006334 104016 ERROR 
1081 006336 000521 BR 
1082 004340 022626 2$: CMP 
1083 006342 017737 173156 001126 MOV 
1084 006350 012737 140760 001124 MOV 
1085 006356 023737 001124 001126 CMP 
1086 006364 001405 BEQ 
1087 006366 013737 001524 001122 MOV 
ie 006374 104016 ERROR 
1090 006376 000501 BR 
1091 006400 017737 173114 001126 3$: MOV 
1092 006406 012737 177777 001124 MOV 
1093 006414 023737 001124 001126 CMP 
1094 006422 001405 BEQ 
1095 006424 013737 001520 001122 MOV 
1096 006432 104010 ERROR 
1097 006434 000462 BR 
098 006436 017737 173060 001126 4$: MOV 
099 006444 012737 160000 001124 MOV 
100 006452 023737 001124 001126 CMP 
101 006460 001405 BEQ 
102 006462 013737 001522 001122 MOV 


#100, $TIMES 
#2,R 
R5,SETVEC 
#-1, aDRVWCR 


7160000. aDRVBAR 


#0 
#161,aDRVCSR 


#140760, $GDDAT 
@DRVCSR,$BDDAT 
+ aetemata eat 


$ 

(SP)+,(SP)+ 
@DRVCSR,$BDDAT 
#140760, $GDDAT 
- pacdeememaanted 


3 
aan 


7$ 

aDRVWCR . SBDDAT 
#-1,$GDDAT 
ScDbAT, ,SBDDAT 
DRVWCR,$BDADR 
10 

7$ 

@DRVBAR, $BDDAT 
#160000. $GDDAT 
$GDDAT, $BDDAT 


5$ 
DRVBAR , SBDADR 


+ 3D0 100 ITERATIONS 
RO WHEN ZERO SAYS CLR ny WITH RESET 
[GO SET UP INTERRUPT RETURN 
:RETURN TO 2$ rs ete INTR 
;SET UP FOR ONE R'S 
:SET UP CA TO 160000 (RESERVED) 
:ALLOW_INTR 
SET IE, XAD 17,16 & GO 
TSET CYCLE 
;SET UP CSR ADRS - SHOULD NEVER GET HERE 
LD EXPECTED 
GIVE _— THE STATUS 


:CLR I 

sNEX FAILED TO CAUSE AN INTERRUPT 
:GO RESTORE VECTOR 

;SHOULD INTR RETURN HERE - FIX STACK 
READ THE CSR 

LD EXPECTED 

; CORRECT? 

:BR_IF SO 

:SET_UP CSR ADRS 
STATUS ER = EXPECTED 
TER, NEX, CYCLE, READY, 
260 RESTORE V VECTOR 
;READ WORD COUNT 

; SHOULD STILL HAVE -1 
>: CORRECT? 


SET UP WCR ADRS 

WC INCREMENTED ON A TIMEOUT ER 
:GO RESTORE VECTOR 

:READ BUFFER ADRS 

;SHOULD NOT HAVE INCREMENTED 
:COR RECT? 


R_IF SO 
SET UP BAR ADRS 


IE, XAD17 & XAD16 


SEQ 0030 
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TEST THAT A DATI FROM 


ERROR 
B 


11 
7$ 
RO 
6$ 
#40000,aDRVCSR 
@DRVCSR, + 1 es 
#760,$GDD 
SGDDAT, SBDDAT 
DRVCSR,$BDADR 
16 

7$ 
@DRVCSR,$BDDAT 
#200, $GDDAT 

> genet temammseed 
* Gameomancs 


PC ,RSTVEC 


11=SEP=81 12:22 PAGE 5-22 


A NON-EXISTANT BUS ADRS SETS 'NEX’ 


;BAR_ INCREMENTED ON A TIMEOUT ER 
;GO_ RESTORE VECTOR 


KEEP TRACK ON HOW TO CLR 
:BR IF CLR BY RESET 

WRITE NEX TO ZERO 
;READ CSR 


3LD aeets oe 
:COR RECT? 


R IF SO + ye TEST FOR RESET TEST 
:SET rs CSR_ADRS 
;"NEX' F ATLED TO Behe: TO ZERO 
7GO RESTORE VECTO 
: ISSUE BUS RESET 
;READ THE CSR 
EXPECT ONLY READY 
CORRECT? 


R IF SO 
TSET UP CSR ADRS 
RESET FAILED TO CLR ‘NEX' 
;GO RESTORE VECTOR 


Fg RI RR TIT TOTO TTT TTT TR ER RII II TTT TTT SOTOTOTOTOTTO TOT TOTTT 


SeTEST 27 


TST27: 


2$: 


SCOPE 
M 


TEST 200 NPR TRANSFERS IN MAINT MODE 


SERRE KEKE EEK REE EERE EERE KEKEKKKEKEKEKEKKKEK 


#10,$TIMES 3;D0 10 ITERATIONS 
R5,SETVEC :GO SET UP an Rais my 
SRETURN TO 2$ NTR 
PC,LDBUF 1 :GO_SET UP Daur (SPECIAL COM PATTERN) 
#DBUF ,aDRVBAR ;SET UP CURRENT ADRS 
#-200.,a@DRVWCR ;SET UP FOR 200 NER’ S 
#0 ZALLOW INTR 
#10101,aDRVCSR ;SET MAINT, IE & GO 
#400, aDRVCSR SET CYCLE 
#0, $BDDAT ;SET UP A COUNTER 
$BDDAT ; COUN AY 
1$ zWAIT TILL DONE - SHOULD INTR BEFORE OVFLO 
DRVCSR,$BDADR ;SET UP CSR ADRS 
#10700,$GDDAT ;LD .EXPECTED 
uDRVCSR,SBDDAT ;READ STATUS 
#100, aDRVCSR ISABLE IE 
5 ;NO INTR AFTER 200 MAINT MODE XFER'S 
3$ :GO RESTORE VECTOR 
(SP)+,(SP)+ [RETURN HERE a. INTR = FIX STACK SINCE NO RTI 
R5,CKSTAT :GO CHECK STATUS 
SEXPECTED STATUS 
A OF XFERS 
7 SRETURN HERE IF STATUS ER - EXPECTED MAINT, 
ZCYCLE, READY & 
3$ :GO RESTORE VECTOR 
10 SRETURN HERE IF 3 ER - SHOULD BE 0 
3$ ;GO RESTORE VECTO 
11 SRETURN HERE IF BAR ER - SHOULD = DBUF +620 
3$ 3GO RESTORE VECTOR 
R5,CKDAT1 :RETY U ee IF * — GO CHECK DATA 
13 ‘RETURN HERE IF DATA ER - (WITH MAINT SET) 


SEQ 0031 
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CVDRAB.P11 11-SEP-81 12:21 T27 TEST 200 NPR TRANSFERS IN MAINT MODE SEQ 0032 
1155 006772 000240 NOP ;RESTORE VECTOR NEXT 
1156 006774 004737 010132 3$: JSR PC,RSTVEC 3GO RESTORE VECTOR 
1157 TOOIE EASE OSE ISIS IEEE UII OOS IOI IIIS SIIEIIOEI IIE 
(3) s*TEST 30 - TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4K 
(3) SII IIIISIIIIOIOIOIIIIIIIIIO IOI III III III III IIIS IOIIIOIE 
(2) 007000 000004 +8130: SCOPE 
(1) 007002 012737 000005 001160 MOV AS, STIMES 3;D0 5 ITERATIONS 
1158 007010 004537 010112 JSR R5,SETVEC 3GO SET UP INTR RETURN 
1159 007014 007150 3$ RETURN TO 3$ ON INTR 
1160 007016 005037 001542 CLR DBUFP ;GET LOWEST BUFFER ADRS 
1161 007022 062727 020000 001542 1$: ADD #20000,DBUFP ‘POINT TO NEXT 4K 
1162 007030 023737 001540 001542 CMP CORSZ,DBUFP 31S THE 4K THERE? 
1163 007036 001465 BEQ 4$ ‘BR IF NOT 
1164 007040 004737 010410 JSR PC,LDBUF1 3GO SET UP SPECIAL COMPEMENT PATTERN 
1165 007044 013777 001542 172450 MOV DBUFP, @DRVBAR SET UP BUFFER ADRS 
1166 007052 012777 177470 172440 MOV #-200.,aDRVWCR SET UP FOR 200 XFER'S 
1167 007060 106427 000000 MTPS #0 ;ALLOW INTR 
1168 007064 012777 010101 172432 MOV #10101,@DRVCSR ;SET MAINT,IE & GO 
1169 007072 052777 000400 172424 BIS #400, aDRV CSR ;SET CYCLE 
1170 007100 012737 000000 001126 MOV #0,$BDDAT SET - A COUNTER 
1171 007106 005237 001126 2$: INC $BDDAT ;COUNT AWAY 
1172 007112 001375 BNE 2$ ; SHOULD ALWAYS secs ©ROM THIS LOOP 
1173 007114 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRA 
1174 007122 012737 010700 001124 MOV #10700, $GDDAT LD EXPECTED 
1175 007130 017737 172370 001126 MOV @DRVCSR,$BDDAT TREAD CSR 
1176 007136 042777 000100 172360 BIC #100,aDRVCSR ;DISABLE IE 
1177 007144 104005 ERROR 5 NO INTR AFTER 200 MAINT MODE XFER'S 
1178 007146 000421 BR 4$ G0 RESTORE VECTOR 
1179 007150 022626 3$: CMP (SP)+,(SP)+ sRETURN HERE ON INTR = FIX STACK SINCE NO RTI 
1180 007152 004537 010156 JSR R5,CKSTAT :GO CHECK STATUS 
1181 007156 010700 10700 Zs EXPECTED STATUS 
1182 007160 000310 200. 34 OF XFER'S 
1183 007162 104007 ERROR 7 RETURN HERE IF STATUS ER = EXPECTED MAINT, 
1184 :CYCLE, Y@ IE 
1185 007164 000412 4$ ;GO RESTORE VECTOR 
.186 007166 104010 ERROR 10 TRETUR N HERE IF WC ER - SHOULD = O 
1187 007170 000410 4$ ;GO RESTORE VECTOR 
1188 007172 104011 ERROR 11 RETURN HERE IF _ ER = SHOULD = DBUFP+62U 
1189 007174 000406 4$ 3GO RESTORE VECTO 
1190 007176 004537 010526 JSR R5,CKDAT1 :RE TURN HERE IF Or - NOW GO CK DATA 
1191 007202 000310 # OF XFER'S TO CK 
1192 007204 104013 ERROR 13 sRETURN HERE IF DATA ER 
1193 06 000401 4$ ‘ gt Dh VECTOR 
1194 007210 000704 BR 1$ XT BANK 
1195 007212 012737 015400 001542 4$: MOV #DBUF , DBUFP ‘RESTORE BUFFER ADRS TO LOWEST 4k 
1196 007220 004737 010132 JSR PC,.RSTVEC 3GO RESTORE VECTOR 
1197 PTTITITIT IIIT TTTITT ITIL TTT titi titi titi tii titi ai iii iii i i 
(3) S*TEST 31 TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 
(3) PLR R RRR EEE E REAR EERE AREA EER Re 
(2) 007224 000004 TST31: SCOPE 
1198 007226 105777 171706 TSTB aSwR 7KDF11-B? 
1199 007232 100507 BM! ALTERN 3IF YES,GO TO THE we SUBTEST 
1200 007234 004537 010112 101$: JSR R5,SETVEC 60 SET UP INTR RETURN 
1201 007240 007344 1$ RETURN TO 1$ * INTR 
1202 007242 012777 177777 172250 MOV #-1,aDRVWCR ;SET UP WC - 1 XFER 
1203 007250 013737 001150 001542 MOV $TPS,DBUFP ;SET UP BUFFER ADRS TO PRIATER CSR ADRS 
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TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 


$TPS ,aDRVBAR ;SET UP BUFFER ADRS = FROM PRINTER CSR 
#0 ;ALLOW_INTR 


sALL 
@DRVDBR ZERO THE DBR 
#161,aDRVCSR SET IE, XAD17 & XAD16, & GO 
#400, aDRVCSR sSET CYCLE 


DRVCSR,$BDADR ;SET UP CSR ADRS 
#760,$GDDAT LD EXPECTED STATUS 
Q@DRVCSR,$BDDAT ;READ THE CSR 


#100,aDRVCSR DISABLE IE 

5 ;NO INTR ON 1 WL XFER FROM XCSR 

2$ 3GO RESTORE VECTOR 

(SP) +, (SP)+ ;INTR RETURNS HERE = FIX STK SINCE *.o RTI 


R5,CKSTAT :GO Cx STATUS 
CSR EXPECTED STATUS 
:4 OF XFER'S 

7 RETURN HERE IF STATUS ER - EXPECTED CYCLE, 
3XAD17 & XAD16, RDY @ IE 

2$ 7GO RESTORE VECTOR 

10 RETURN HERE IF WC ER = EXPECTED 0 

2$ :GO RESTORE VECTOR 

11 RETURN HERE IF BAR ER = SHOULD = XCSR+2 
;GO RESTORE VECTOR 


2$ : 
a$TPS ,$GDDAT sRETURN HERE IF OK - GET XCSR CONTENTS 
@DRVDBR,$BDDAT ;READ DBR 
$GDPAT,$BDDAT ;CORRECT? 


2$ :BR_IF SO 

DRVDBR,$BDADR ;SET UP DBR ADRS 

$TPS,$GDADR GET ADRS OF DATA (XCSR) 

20 ;DATA ER FROM TTY PRINTER CSR 
#DBUF , DBUFP RESTORE BUFFER ADRS TO LOWEST 4k 
PC,RSTVEC :GO RESTORE VECTOR 

NXDEV : IGNORE NEXT SUBTEST 


'WeADSASASAAALARASASLSALALASSLASASLASLASASASLASARAAAAAARR EARLE RAS ASSL R SSS: 


SIN CASE OF KDF11-B TEST SOME SPECIFIED I/0 PAGE 


wet ASSL 222 REPRE EESEAARASARASELELSSAARESARAASALALAS ASA SSS RS ESAS SD: 


ALT 


ERN: TST 
Q 


IOPAGE 31/0 TRANSFER DESIRED? 
NXDEV IF NOT, SKIP_THE TEST 
R5,SETVEC :GO_ SET UP INTR RETURN 


RETURN TO 1$ ON INTR 
#~-1,aDRVWCR SET UP WC - 1 XFER 
IOPAGE , DBUFP :SET UP BUFFER ADRS TO I/O CSR ADRS 
7 oe 408 oa ADRS = FROM 1/0 CSR 


@DRVDBR ; THE DBR 
#161, aDRVCSR SET IE, XAD17 & XALi6, & GO 
#400, aDRVCSR zSET CYCLE 
DRVCSR,$BDADR = ;SET_UP CSR ADRS 
#760, $GDDAT :LD EXPECTED STATUS 
@DRVCSR,SBDDAT ;READ THE CSR 
#100, aDRVCSR :DISABLE IE 
5 NO INTR ON 1 WD XFER FROM XCSR 
2$ :GO_ RESTORE VECTOR 
(SP)+,(SP)+ ; INTR RETURNS HERE = FIX STK SINCE NO RTI 
R5,CKSTAT :GO CK STATUS 

CSR EXPECTED STATUS 





SEQ 0033 


—_—— 
| 
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| MAINDEC=11-CVDRA 8 DRVI1B, DMA INTERFACE DIAGNOSTIC 1 30(1046) 11-SEP-81 12:22 PAGE 5-25 
CVDRAB.P11 11-SEP-81 12:21 TST TEST THE ADDRESS. (170) ABI! s1Y TO THE TTY PRINTER C&R | SEQ 0034 
| 
| 1260 907609 900601 :#_OF_XFER'S 
1261 007602 104007 ERROR 7 :RETURN HERE IF STATUS ER - EXPECTED CYCLE, 
| 1262 :XADTZ & XADI6. RDY & IE 
| 1263 007604 000425 BR 2$ GO RESTORE VECTOR 
1264 007606 104010 ERROR 10 RETURN HERE IF WC ER ~ EXPECTED 0 
| 1265 007610 000423 BRS iGO RESTORE. VECTO 
1266 007612 104031 ERROR 11 :RET URN HERE IF BAR ER = SHOULD = XCSR+2 
1267 007614 000421 BR 2$ GO_RESTORE VECTOR 
1268 007616 017737 171722 001124 MOV @IOPAGE,SGDDAT :RETURN HERE IF OK - GET XCSR CONTENTS 
1269 007624 017737 171676 001126 MOV @DRVDBR;S$BDDAT :READ DBR 
| 1570 007682 023737 001124 001126 CMP $GDDAT, SBDDAT —: CORRECT? 
1271 007640 001407 BEQ :BR IF SO 
1272 007642 013737 001526 001.22 MOV DRVDBR,$BDADR SET UP. DBR ADRS 
1273 007650 013737 001544 001120 MOV -IOPAGE.$GDADR GET ADRS OF DATA (XCSR) 
1274 007656 104020 ERROR 20 "DATA ER FROM 1"Y PRINTER CSR 
1375 007660 012737 015400 001542 2$: MOV. ADBUF ,DBUFP =: RESTORE BUFFER ADRS TO LOWEST 4k 
1276 007666 004737 010132 JSR PC, RSTVEC :GO RESTORE VECTOR 
1278 LARA RARER EEE EERE EEE ERE EERE REE EE 
1279 ;DON T REPORT ‘END OF PASS‘ UNTIL ALL SELECTED DRV11°S HAVE BEEN TESTED 
1280 SL REAR REET EERE EREREREAREEEERAEREREE AREER REE EE 
1281 007672 000004 NXDEV: SCOPE 
1282 007674 000251 NXDEV1: CLC :CLR CARRY 
1283 007676 006037 001536 ROR DMAP “LOOK FOR NEXT 
1284 607702 001432 BEQ  —$EOP ZBR IF ALL TESTED 
1285 007704 062737 000010 001520 ADD —-#10,DRVWCR TOFFSET BASE BUS ADRS TO NEXT DRV11B 
1286 007712 062737 000010 001522 ADD —- #10, DRVBAR 
1287 007720 062737 000010 001524 ADD —«#10-DRVCSR 
1288 007726 062737 000010 001526 ADD «#10 DRVDBR 
1289 007734 062737 000004 001530 ADD «#4, BRVCTO ZOFFSET VECTOR ADRS TO NEXT 
1290 007742 062737 000004 001532 ADD «#4 -DRVCT2 
1291 007750 005237 001206 INC SUNIT ZCOUNT DEVICE 
1292 007754 032737 000001 001536 BIT #1, DMAP ZS IT SELECTED? 
1293 007762 001744 BEQ -NXDEV1 :BR IF NOT 
129% 007764 000137 002406 JMP __RESTRT STEST NEXT 
1295 .SBTTL END OF PASS ROUTINE 
(2) MASSES ESLALASSLALES ELAR ASL SESE RES ESLER ERR R RRR SRR RS PRR SARS RRR S SD BS 
(1) “ kINCREMENT THE PASS NUMBER ($PASS) 
(1) ;ATYPE “END PASS #XXXXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) :*1F THERES A MONITOR GO TO 11 
() ;*1F THERE ISN'T JUMP TO START 
(1) 007770 SEOP: 
(2) 007770 000240 NOP 
(1) 007772 005037 001102 CLR STSTNM :: ZERO THE TEST NUMBER 
(1) 007776 005037 001160 CLR © STIMES ERO THE NUMBER OF ITERATIONS 
(1) 010002 0052? 001202 INC $PASS INCREMENT THE PASS NUMBER 
(1) 010006 042737 100000 001202 BIC #100000, $PASS ::D0N'T ALLOW A NEG. NUMBER 
(1) 010014 005327 DEC (PC)+ LOOP? 
(1) 610016 000001 SEOPCT: .WORD 
(1) 010020 003022 BGT $DOAGN :iYES 
(1) 010022 012737 MOV (PC)+,a(PC)+ — ::RESTORE COUNTER 
| (1) 010024 000001 SENDCT: ,WORD 1 
(1) 010026 010016 SEOPCT 
(1) 010030 10440! 010075 TYPE  —_, SENDMG ;;TYPE “END PASS 4" 
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CVDRAB.P11 11=SEP=81 12:21 END OF PASS ROUTINE , SEQ 0035 
(2) 010034 013746 001202 MOV #PASS,=(SP) ::SAVE $PASS FOR TYPEOUT 
(2) 010040 104405 TYPDS ::GO0 TYPE==DECIMAL ASCII WITH SIGN 
(1) 010042 104401 010072 ’ TYPE , SENULL +: TYPE A NULL CHARACTER 
(1) 010046 013700 000042 3GET42: MOV a442,R0 +:GET MONITOR ADDRESS 
(1) 010052 001405 BEQ $DOAGN ;sBRANCH IF NO MONITOR 
(1) 010054 009005 RESET =CLEAR THE WORLD 
<1) 010056 004710 $ENDAD: JSR PC, (RO) 3360 TO MONITOR 
(1) 010060 000240 NOP :SAVE ROOM 
(1) 010062 000240 NOP i: R 
(1) 010064 000240 NOP S:ACT11 
(1) 010066 SDOAGN: 
(1) 010066 000137 JMP a(Pc)+ s RETURN 
(1) 010070 002012 $RTNAD: .WORD START1 
(1) 010072 377 377 000 $ENULL: .BYT -1,-1,0 ;z;NULL CHARACTER STRING 
(1) 010075 015 042412 042116 $ENDMG: .ASCIZ <15><12>/END PASS #/ 
(1) 010102 050040 051501 020123 
(1) 010119 000043 
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CVDRAB.P11—«-11=SEP=81 12:21 PROGRAM SUBROUTINES | SEQ 0036 
1297 .SBTTL PROGRAM SUBROUTINES 
1599 
1300 TORE AAASBAAASALASZALALZALALALLALELALESES ESAS ERS RRR ARERR RRR RRS RRR SES SS | 
1301 “THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 
1302 ‘SETS UP THE DRV11B INTERRUPT TO RETURN ON INTERRUPT 
1303 ;TO THE ADDRESS INDICATED ((R5)) BY THE CALL +2 
1304 FREER EEE EE REREEKEEEEEKEEERERERREERRRREEERERERERR REE 
1305 010112 106427 000200 SETVEC: MTPS #200 :SET UP FOR NO INTERRUPT 
1306 010116 012577 171406 MOV (R5)+,@DRVCTO  :SET UP INTR RETURN ADRS 
1307 010122 012777 000200 171402 MOV #200,aDRVCT2 :kKEEP PRIORITY LEVEL AT TOP ‘N INTR 
1308 010130 000205 RTS R5 EXIT 
1310 FERRER REE EEE REE EERE EH HK RERREKEEKKKKEKREKEKREKE 
1311 ‘THIS ROUTINE CLEARS THE DRV11B CSR = RESTORES THE DRV11B 
1312 ;INTERRUPT VECTOR TO A HALT ~ RAISES PRIORITY LEVEL 
1313 co As... Baa ath tn toe 7. 
1314 010132 005077 171346 RSTVEC: CLR aDRV :CLR STATUS & CONTROL 
1315 010136 013777 001532 171364 MOV aes QDRVCTO :POINT VECTOR TO HALT 
1316 010144 005077 171362 CLR aDRVCT2 ‘SET UP HALT 
1317 010150 106427 200200 MTPS #200 *RAISE PRIORITY LEVEL 
1318 010154 000207 RTS PC TEXIT 
1320 SERRE RRA EEE EEE RRR EERE 
1221 ‘THIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR: CORRECT STATUS, 
1322 ; CORRECT WORD COUNT & CORRECT BUFFER ADDRESS = THE EXPECTED DATA IS 
1323 “SUPPLIED IN THE CALL #2 & +4 = THE RETURN IS TO +22 IF NO ERRORS 
1324 “DETECTED = IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 
1325 POTTS TT ITI TIT itt titi tit it titi titi titi titi tiiiiiti titi i iii isi 
1326 010156 017737 171342 001126 CKSTAT: MOV aDAVCSR, SBDDAT ;READ THE STATUS 
1527 010164 042777 000100 171332 BIC #100, aDR DISABLE THE IE BIT 
1328 010172 012537 001124 MOV (R5)4, SCDDAT :SET UP EXPECTED STATUS 
1329 010176 023737 001124 001126 CMP $GDDAT,$BDDAT :CORRECT? 
1330 010204 001406 BEQ 1$ ‘BR IF SO 
1331 010206 013737 001524 001122 MOV DRVCSR,$BDADR :SET UP CSR ADRS 
1332 010214 062705 000002 ADD #2,R5 ‘POINT TO THE CSR ER 
1333 010220 000205 RTS RS SEXIT HERE ON STATUS ERROR 
1334 010222 017737 171272 001126 1$: MOV QDRVWCR,SBDDAT :GET WC 
1335 010239 001410 BEQ S ‘BR IF ZERO 
1336 010232 013737 001520 001122 MOV DRVWCR,$BDADR :SET UP WCR ADRS 
1337 010240 005037 001124 CLR SGDDAT TEXPECTED 0 
1338 010244 062705 000006 ADD #6,R5 ‘POINT TO THE WCR ER 
1339 010250 000205 RTS R5 SEXIT HERE ON WCR ER 
1340 010252 011537 001124 2s: MOV (R5) ,$GDDAT GET X FER ’ 
1341 010256 006337 001124 ASL $GDDAT ‘CONVERT 0 WORD 
1342 010262 063737 001542 001124 ADD DBUFP, $GDDAT :POINI 10” LAST XFER +2 
1343 010270 017737 171226 001126 MOV @DRVBAR, $BDDAT 
1344 010276 042737 000001 001126 BIC #B1T00.$BDDAT DON'T WANT BITOO 
1345 010304 023737 001124 001126 CMP $GDDAT.$BDDAT :CORRECT? 
1346 010312 001406 BEQ $ ‘BR IF SO 
1347 010314 013737 001522 001122 MOV DRVBAR,$BDADR :SET UP BAR ADRS 
1348 010322 062705 000012 ADD #12,R5 ‘POINT TO BAR ER 
1349 010326 000205 RTS TEXIT HERE ON BAR ER 
1350 010330 062705 000016 3$: ADD #16,R5 tALL OK = POINT TO GOOD EXIT 
1351 010334 000205 RTS RS SEXIT HERE IF NO ERRORS 
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CVDRAB.P11 11-SEP-81 12:21 ROGRAM SUBROUTINES SEQ 0037 


1353 REE EERE REE REE REE KKK 
1354 :THIS ROUTINE LOADS 'DBUF' WITH A FLOATING ZERO/ONE PATTERN 

1355 R 199 LOCATIONS = THE LAST LOCATION IS LOADED WITH THE 

1356 W070? WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR 

1357 :AT THE COMPLETION CF A 200 WORD TRANSFER 

1358 os a. @emt st. test aeeh oe ae 
1359 010336 012703 015400 ibBUF: MOV #DBUF ,R3 :GET BUFFER ADRS 

1360 010342 012704 177776 1$: MOV ee 7 8G, R4 :SET UP FLOATING ZERO PATRN 

1361 010346 010423 2$: MOV R4, (R3)+ ‘LOAD IT (FLOATING 0) 

1362 010350 005104 COM R4 ‘MAKE INTO FLOATING 1 

1363 010352 022703 016216 CMP #DBUF+616,R3 AT END OF BUFFER? 

1364 010356 001003 BNE 4 :BR IF NOT 

1365 010360 012713 070707 3$: MOV #70707, (R3) ; LOAD LAST DATVAR (SPECIAL) 

1366 010364 000207 RTS PC [GET OUT 

1367 010366 010423 4$: MOV R4, (R3)+ ‘LOAD IT (FLOATING 1) 

1368 010370 022703 016216 CMP #DBUF+616,R3 -: AT ~END OF BUFFER? 

1369 010374 001771 BEQ 3$ :BR IF SO 

1370 010376 005104 COM R4 sBACK TO FLOATING ZERO 

1371 010400 006304 ASL RG SSHIFT LEFT 

1372 010402 005204 INC R4 [KEEP LSB SET 

1373 010404 103356 BCC 1$ 'GO RESET FLOATING PATRN 

137% 010406 000757 BR 2$ 7GO LOAD NEXT PATRN 

1376 FEAR EREERE ERE RE REE RARER EEERREEREKI TRE OS AEEEKKKEKEKEK 
1377 :THIS ROUTINE LOADS 'DBUF* WITH A UNIQUE FLOATING ZERO/ONE PATTERN 
1378 + (177776,0,1,0,177775,0,2,-0,177773,0,4,0,177767,0,10,0 ETC.) 

1379 ‘IT IS USED WITH MAINT BIT SET (DATI7DATO SEQUENCE) - 200 LOCS 
1380 SARE LOADED WITH THIS PATTERN 

1381 erereerrrt ttt TTT TTT i ttittiititiiiiitiiiiiiiiiiititiiiitiiii itis) 
1382 010410 013703 001542 LOBUF1: MOV DBUFP,R3 :GET BUFFER ADRS 

1383 010414 010305 MOV R3,R5 :SAVE IN RS 

1384 010416 062705 000620 ADD #620,R5 [POINT TO END OF BUFFER 

1385 010422 012704 177776 1$: MOV #177776, R4 *SET UP FLOATING ZERO PATRN 

1386 010426 010423 2$: MOV R4, (R3)+ ;LOAD IT (FLOATING 0) 

1387 010430 005023 CLR (R3)+ ‘7ERO NEXT 

1388 010432 005104 COM R4 [SET UP FLOATING 1 

1389 010434 010423 MOV R4, (R3)+ :LOAD IT 

1390 010436 005023 CLR (R3) + :ZERO NEXT 

1391 010440 020503 CMP R5,R3 Ate LOCS DONE? 

1392 010442 001001 BNE 3$ ‘BR IF NOT 

1393 010444 000207 RTS PC ; OUT 

1394 010446 005104 3$: COM RG BACK TO FLOATING ZERO 

1395 010450 006304 ASL R4 SHIFT LEFT 

1396 010452 005204 INC R4 :KEEP LSB SET 

1397 010454 103362 BCC 1$ :G0 RESET FLOATING PATRN 

1398 010456 000763 BR 2$ :GO FLOAT NEXT PATRN 

1400 Z * [EERE EAE ERE EERE EEE EEREREREREEREKERR EKER Ke 
1401 * THIS ROUTINE CHECKS 200 LOCATIONS IN peur FOR GOOD TRANSFERED 
1402 ‘DATA (#177377) ON "DATO' TRANSFERS = IF AN ERROR IS DETECTED 
1403 ;THE RETURN IS TO CALL #2 - IF NO ERROR THE RETURN 15 TO CALL +4 
1404 ch, fo. Beet fA NEES MAOER DORE Geter 
1405 010460 012701 015400 tkKDAT: MOV BUF :GET BUFFER ADRS 

406 010464 022721 177377 1$: CMP Bee oe Rts [DATA OK? 

1407 010470 001410 BEQ $ :BR IF SO 

1408 010472 013737 001526 001122 MOV DRVDBR,$BDADR :SET UP DBR ADRS 
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1409 010500 014137 001126 MOV -(R1) ,$BDDAT sGET ACTUAL DATA XFERED 
1410 010504 010137 001120 MOV R1,$GDADR ;GET MEMORY ADRS 
1411 010510 000207 RTS PC ;RETURN TO ERROR 
1412 010512 022701 016220 23: CMP #DBUF +620,R1 ;AT END OF ‘DBUF'? 
1413 010516 001362 BNE 1$ ;BR IF MORE 
1414 010520 062716 000002 ADD #2, (SP) sADJUST STACK FOR GOOD RETURN 
1atd 010524 000207 RTS PC sGET OUT 
1417 ORES IIIOI OI OISIIIIIUIIUIIIUIII INOS IN I OOD nih tt ttt tits 
1418 s THIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF' FOR GOD TRANSFERED 
1419 sDATA (177776,177776,1,1,177775,177775,2,2,177773,177773, ETC.) 
1420 ;0N MAINT MODE TRANSFERS = THE NUMBER OF CHECKS REQUIRED IS iNDICATED 
1421 ;BY THE CALL +2 = IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 - 
1422 : IF NO ERROR THE RETURN IS TO CALL +10 
1423 ISSA ISAAC OI OISOIIDIOIUIISIIIOIIIOIIDIOIIOIIUIIUIDIOIIIOIIDIIOIISIDIISIDIUISIDISUIINE IDE 
1424 010526 012500 CKDAT1: MOV (R5)+,R0 ;GET # OF CHECKS 
1425 010530 013702 001542 MOV DBUFP ,R2 :GET BUFFER ADRS 
1426 010534 012701 177776 1$: MOV #177776,R1 ;SET UP FLOATING ZERO PATRN 
1427 010540 005003 CLR R3 :R3 SAYS WHEN TO SHIFT PATRN 
1428 010542 020122 2$: CMP R1,(R2)+ sDATA OK? 
1429 010544 001010 BNE 3;BR IF NOT 
1430 010546 020122 CMP R1,(R2)+ sDATA WRITTEN OK? 
1431 010550 001006 BNE 3$ ;BR IF NOT 
1432 010552 162700 000002 SUB #2,R0 sACCOUNT FOR TWO ADRS'S 
1433 010556 003015 BGT 4$ ;BR IF MORE 
1434 010560 062705 000004 ADD #4,R5 ;ADJUST FOR GOOD RETURN 
1435 010564 000205 RTS R sEXIT 
1436 010566 014237 001126 3$: MOV -(R2) , $BDDAT ;GET BAD DATA 
1437 010572 010237 001120 MOV R2,$GDADR ;GET MEM ADRS 
1438 010576 010137 001124 MOV R1,$GDDAT ;LD EXPECTED DATA 
1439 010602 013737 001526 001122 MOV DRVDBR , $BDADR ;SET UP DBR ADRS 
1440 010610 000205 RTS R5 ;RETURN TO ERROR 
1441 005101 4$: COM R] sNOW EXPECT COMPLEMENT 
1442 005103 COM R3 ;TIME TO SHIFT? 
1443 001351 BNE 2s ;BR IF NOT 
1444 006301 ASL R1 sSHIFT LEFT 
1445 005201 INC R1 ;KEEP LSB SET 
1446 103343 BCC 1$ 3GO RESET FLOATING PATRN 
1447 000745 BR 2s 7DO NEXT 
ee SS ooo es 
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CVDRAB.P11 — 11=SEP=81 12:21 SYSMAC ROUTINES SEQ 0039 
1449 .SBTTL SYSMAC ROUTINES 
1451 .SBITL TYPE ROUTINE 

(2) FREAK EERE EEREREREREEEREREREREREREREKKEEE 

(1) “ROUTINE TG TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

(1) [*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 

(1) :*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(1) :*NOTE2: SPILLS CONTAINS. THE NUMBER OF FILLER CHARACTERS REQUIRED. 

a) *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER 
* 

(1) Z*CALL: 

(1) :*1) USING A TRAP INSTRUCTION 

a) ton «(TYPE sMESADR ZsMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
-* 

(1) te TYPE 

(1) i* MESADR 

(1) 

(1) 010630 105737 001157 $TYPE: TSTB  $TPFLG i1S THERE A TERMINAL? 

(1) 010634 100002 BPL 1$ SBR IF YES 

(1) 010636 000000 HALT TIHALT HERE IF NO TERMINAL 

(1) 010640 000430 BR 3$ : LEAVE 

(1) 010642 010046 1$: MOV RQ. <(SP) SAVE RO 

(1) 010644 017600 000002 MOV a2 (SP) ,RO i3GET ADDRESS OF ASCIZ STRING 

(1) 010650 122737 000001 001214 CMPB PAPTENY. SENV —  ;RUNNING IN APT MODE 

(1) 010656 001011 BNE 62$ 4 17NO,GO CHECK FOR APT CONSOLE 

(1) 010660 132737 000100 001215 BITB § #APTSPOOL ,SENVM 3 SPOOL MESSAGE TO A 

(1) 010666 001405 BEQ 628 NO,GO CHECK FOR CONSOLE 

(1) 010670 010037 010700 MOV RO,61$ ZISETUP MESSAGE ADDRESS FOR APT 

(1) 010674 004737 011172 JSR PC. SATY3 :: SPOOL MESSAGE TO APT 

(1) 010700 000000 61$: WORD 0 ZMESSAGE ADDRESS 

(1) 010702 132737 000040 001215 62$:  BIIB  #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 

(1) 010710 001003 BNE 60$ SYES,SKIP TYPE OUT 

(1) 010712 112046 2$: MOVB (RO) +, =(SP) ; PUSH CHARACTER TO BE TYPED ONTO STACK 

(1) 010714 001005 BNE 4$ ::BR IF IT ISN'T THE TERM 

(1) 010716 005726 TST (SP)+ SIF TERMINATOR BOP IT OFF Mee STACK 

(1) 010720 012600 60$: MOV (SP)+,RO STRESTORE RO 

(1) 010722 062716 000002 3$: ADD #2, (SP) i SADJUST RETURN PC 

(1) 010726 000002 RTI URN 

(1) 010730 122716 000011 4$: CMPB Ss #HT, (SP) + BRANCH IF <HT> 

(1) 010734 001430 BEQ 

(1) 010736 122716 000200 CMPB ss #CRLF, (SP) ;:BRANCH IF NOT <CRLF> 

(1) 010742 001006 BNE 

(1) 010744 005726 TST (SP) + :;POP <CR><LF> EQUIV 

(1) 010746 104401 TYPE ::TYPE A CR AND LF 

(1) 010750 001171 $CRLF 

(1) 010752 105037 011160 CLRB = $CHARCNT ::CLEAR CHARACTER COUNT 

(1) 010756 000755 BR 2$ ::GET NEXT CHARACTER 

(1) 010760 004737 011042 5$: JSR PC ,STYPEC 7:G0 TYPE THIS CHARACTER 

(1) 010764 123726 001156 6$: CMPB = SFALLC,(SP)*  ::I1S IT TIME FOR FILLER CHARS.? 

(1) 010770 001350 BNE ::1F NO GO GET NEXT CHAR. 

() 010772 013746 001154 MOV $NULL (SP) :2GET # OF yf ALLER, CHARS. NEEDED 

(1) 010776 105366 000001 7$: DECB =: 1( SP) :;DOES A NULL NEED TO BE TYPED? 

(1) 011002 002770 BLT 6$ _ -FHBR IF NO=-GO POP THE NULL OFF OF STACK 
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(1) 011004 004737 011042 JSR PC,$STYPEC 3:GO0 TYPE A NULL 
(1) 011010 105337 011160 DECB $CHARCNT 3:D0 NOT COUNT AS A COUNT 
My 011014 000770 BR 7$ ;;LOOP 
Me ;HORIZONTAL TAB PROCESSOR 
(1) 011016 112716 000040 8$: MOVB #" ,(SP) ;;REPLACE TAB WITH SPACE 
(1) 011022 004737 011042 9$: JSR PC, $TYPEC 77 TYPE A SPACE 
(1) 011026 132737 000007 011160 BITB #7,$CHARCNT ;;BRANCH IF NOT AT 
(1) 011034 001372 BNE 9$ 3; TAB STOP 
(1) 011036 005726 TST (SP) + 3;POP SPACE OFF STACK 
(1) 011040 000724 BR 2$ 3:GET NEXT CHARACTER 
(1) 011042 $TYPEC: 
(1) 011042 105777 170076 TSTB a$TKS 3:CHAR IN KYBD BUFFER? 7MJD001 
(1) 011046 100022 BPL 10$ 3;BR_IF NOT 7MJDO01 
(1) 011050 017746 170072 MOV a$TKB,-(SP) 32:GET CHAR 37MJD001 
(1) 011054 042716 177600 BIC #177600, (SP) 7zSTRIP EXTRANEOUS BITS 7MJD001 
(1) 011060 122716 000023 CMPB HSXOFF, (SP) 3zWAS CHAR XOFF ;MJD001 
(1) 011064 001012 BNE 102$ 7;BR IF NOT 7MJD001 
(1) 011066 101$: 7MJD001 
(1) 011066 105777 170052 TSTB a$TKS 7zWAIT FOR CHAR 7MJD001 
(1) 011072 100375 BPL 101$ 7MJD001 
(1) 011074 117716 170046 MOVB a$TKB, (SP) 3:GET CHAR 3MJDO01 
(1) 011100 042716 177600 BIC #177600, (SP) szSTRIP IT 7MJD001 
(1) 011104 122716 000021 CMPB #$XON, (SP) 72WAS IT XON? 7MJD001 
(1) 011110 001366 BNE 101$ 77BR IF NOT 7MJDO01 
(1) 011112 102$: >MJD001 
(1) 011112 005726 TST (SP) + scFIX STACK 3MJD001 
(1) 011114 10$: 7MzD001 
(1) 011114 105777 170030 TSTB as$TPS ;zWAIT UNTIL PRINTER IS READY 
(1) 011120 100375 BPL 10$ 7MJDO001 
(1) 011122 116677 000002 170022 MOVB 2(SP) ,a$TPB 7zLOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 011130 122766 000015 000002 CMPB #CR,2(SP) 3231S CHARACTER A CARRIAGE RETURN? 
(1) 011136 001003 BNE 1$ 3;BRANCH IF NO 
(1) 011140 105037 011160 CLRB $SCHARCNT 37 YES--CLEAR CHARACTER COUNT 
(1) 011144 000406 BR $STYPEX S7EXIT 
(1) 011146 122766 000012 000002 1$: CMPB ALF ,2(SP) 3218S CHARACTER A LINE FEED? 
(1) 011154 001402 BEQ $STYPEX ;;BRANCH IF YES 
(1) 011156 105227 INCB (PC)+ 3;COUNT THE CHARACTER 
(1) 011160 000000 $CHARCNT:.WORD 0 3;CHARACTER COUNT STORAGE 
he 011162 000207 $TYPEX: RTS PC 

ar -SBTTL APT COMMUNICATIONS ROUTINE 

(2) RAI III IOIIIISIOIOISIIIIIOIIIOIIIIIUIIOIIOIIOIIOIOIOISIOIIUIDIDIDIOISISITITI EIDE 
(1) 011164 112737 000001 011430 $ATY1: MOVB #1,$FFLG :;TO REPORT FATAL ERROR 
(1) 011172 112737 000001 011426 $ATY3: MOVB #1,$MFLG 32:70 TYPE A MESSAGE 
(1) 011200 000403 BR $ATYC 
(1) 011202 112737 000001 011430 S$ATY4: MOVB #1,$FFLG 3:TO ONLY REPORT FATAL ERROR 
(1) 011210 $ATYC: 
(3) 011210 010046 MOV RO,~(SP) 37PUSH RO ON STACK 
(3) 011212 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
(1) 011214 105737 011426 TSTB $MFLG 7:SHOULD TYPE A MESSAGE? 
(1) 011220 001450 BEQ 5$ si1F NOT: B 
(1) 011222 122737 000001 001214 CMPB HAPTENV, SENV ; OPERATING UNDER APT? 
(1) 011230 001031 BNE 3$ :71F NOT: BR 
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(1) 011232 132737 000100 001215 BITB —_ HAPTSPOOL.SENVM ;;SHOULD SPOOL MESSAGES? 
(1) 011240 001425 BEQ NOT: BR 
(1) 011242 017600 000004 MOV a4 (SP) ,RO GET MESSAGE ADDR. 
(1) 011246 062766 000002 000004 ADD #2,4(SP) :BUMP RETURN ADDR 
(1) 011254 005737 001174 1$ TST $MSGTYPE :3SEE IF DONE W/ LAST XMISSION? 
(1) 011260 001375 BNE 1$ NOT: WAIT 
(1) 011262 010037 001210 MOV RO, $MSGAD ‘PUT ADDR IN MAILBOX 
(1) 011266 105720 2$: TSTB (RO) + ::FIND END OF MESSAGE 
(1) 011270 001376 BNE $ 
(1) 011272 163700 001210 SUB $MSGAD ,RO :;SUB START OF MESSAGE 
(1) 011276 006200 ASR RO +:GET MESSAGE LNGTH IN WORDS 
(1) 011300 010037 001212 MOV RO, $MSGLGT +:PUT LENGTH IN MAILBOX 
(1) 011304 0612737 000004 001174 MOV #4. $MSGTYPE S:TELL APT TO TAKE MSG. 
(1) 011312 000413 BR 5$ 
(1) 0113146 017637 000004 011340 3$ MOV a4(SP),4$ :3PUT MSG ADDR IN JSR LINKAGE 
(1) 011322 062766 000002 000004 ADD #2,4(SP) P RETURN ADDRESS 
(3) 011330 013746 177776 MOV 177776, =(SP) : sPUSH 155396 ON STACK 
(1) 011334 004737 010630 JSR PC, $TYPE SCALL TYPE MACRO 
(1) 011340 000000 $: .WORD 0 
(1) 011342 $: 
(1) 011342 105737 011430 0$: TSTB ~—s- SFFLG : SHOULD REPORT FATAL ERROR? 
(1) 011346 001416 BEQ 12$ ::IF NOT: BR 
(1) 011350 005737 001214 TST SENV ? RUNNING UNDER APT? 
(1) 011354 001413 BEQ 2$ NOT: BR 
(1) 011356 005737 001174 11$: TST $MSGTYPE iF INI SHED LAST MESSAGE? 
(1) 011362 001375 BNE 1$ F NOT WAIT 
(1) 011364 017637 000004 001176 MOV a4(SP),$FATAL ::GET ERROR # 
(1) 011372 062766 000002 000004 ADD 2,4(SP) ;BUMP RETURN ADDR. 
(1) 011400 005237 001174 INC $MSGTYPE TELL APT TO TAKE ERROR 
(1) 011404 105037 011430 128: CLRB = $FFLG SCCLEAR FATAL FLAG 
(1) 011410 105037 011427 CLRB = $LFLG +:CLEAR LOG FLAG 
(1) 011414 105037 011426 CLRB = $MFLG S:CLEAR MESSAGE FLAG 
(3) 011420 012601 MOV (SP) +,R1 +:POP STACK INTO R1 
(3) 011422 012600 MOV (SP)+,RO :zPOP STACK INTO RO 
(1) 011424 000207 TS PC ; URN 
(1) 011426 000 $MFLG: .BYTE 0 SMESSG. FLAG 
(1) 011427 000 $LFLG: .BYTE 0 33 FLAG 
(1) 011430 000 SFFLG BYTE 0 *:FATAL FLAG 
(1) 011432 
(1) 000200 APTSIZE= 500. 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
1453 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) FIRE ERE 
(1) tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) **OCTAL (ASCII) NUMBER AND TYPE IT. 
i) : s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
-* . 
(1) te MOV NUM, - (SP) ::NUMBER TO BE TYPED 
(1) ie TYPOS *:CALL FOR TYPEOUT 
(1) 3* .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) yt -BYTE MM ::M=1 OR O 
(1) te ::1=TYPE LEADING ZEROS 
(1) i* +:0=SUPPRESS LEADING ZEROS 
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(1) . 
(1) *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) **$TYPOS OR $TYPOC 
(1) S*CALL: 
(1) te MOV NUM, = (SP) :;NUMBER TO BE TYPED 
4) ;* TYPON *=CALL FOR TYPEOUT 
** 
(1) i s$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 
(1) :* MOV NUM, = (SP) : NUMBER TO BE TYPED 
1) te TYPOC *:CALL FOR TYPEOUT 
(1) 011432 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
(1) 011436 116637 000001 011655 MOVB 1(SP),$OFILL :;LOAD ZERO FILL SWITCH 
(1) 011444 112637 011657 MOVB (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
(1) 011450 062716 000002 ADD #2, (SP) ‘ADJUST RETURN ADDRESS 
(1) 011454 000406 BR $TYPON 
(1) 011456 112737 000001 011655 $TYPOC: MOVB #1,$0FILL ::SET THE ZERO FILL SWITCH 
(1) 011464 112737 000006 011657 MOVB  #6.$OMODE+1 S:SET FOR SIX(6) DIGITS 
(1) 011472 112737 000005 011654 $TYPON: MOVB #5.$0OCNT +:SET THE ITERATION COUNT 
(1) 011500 010346 MOV R3,-(SP) SZ SAVE R3 
(1) 011502 010446 MOV R4,-(EP) TZ SAVE R4 
(1) 011504 010546 MOV R5,-(SP) TZSAVE RS 
(1) 011506 113704 011657 MOVB  $OMODE+1,R4 *:GET THE NUMBER OF DIGITS TO TYPE 
(1) 011512 005404 NEG R4 
(1) 011514 062704 000006 ADD #6 RG :;SUBTRACT IT FOR MAX. ALLOWED 
(1) 011520 110437 011656 MOVB ——- R4. $OMODE ::SAVE IT FOR USE 
(1) 011524 113704 011655 MOVB  $OFILL,R4 °:GET THE ZERO FILL SWITCH 
(1) 011530 016605 000012 MOV 12(SP) .R5 ::PICKUP THE INPUT NUMBER 
(1) 011534 005003 CLR R3 SICLEAR THE OUTPUT WORD 
(1) 011536 006105 1$: ROL R5 ::ROTATE MSB INTO ‘'C’' 
(1) 011540 000404 BR 3$ *:G0 DO MSB 
(1) 011542 006105 2$: ROL RS >: FORM THIS DIGIT 
(1) 011544 006105 ROL RS 
(1) 011546 006105 ROL R5 
(1) 011550 010503 MAV R5,R3 
(1) 011552 006103 3$: RUL R3 ::GET LSB OF THIS DIGIT 
(1) 011554 105337 011656 DECB $OMODE *:TYPE THIS DIGIT? 
(1) 011560 100016 BPL ::BR IF NO 
(1) 011562 042703 177770 BIC #177770,R3 *:GET RID OF JUNK 
(1) 011566 001002 BNE 4$ ::TEST FOR 0 
(1) 011570 005704 TST RG t:SUPPRESS THIS 0? 
(1) 011572 001403 BEQ 5$ *:BR IF YES 
(1) 011574 005204 4$: INC R4 >:DON'T SUPPRESS ANYMORE 0'S 
(1) 011576 052703 000060 BIS #'°0,R3 t:MAKE THIS DIGIT ASCII 
(1) 011602 052703 000040 5$: BIS #' (R3 ::MAKE ASCII IF NOT ALREADY 
(1) 011606 110337 011652 MOVB R23, BS +:SAVE FOR TYPING 
(1) 011612 104401 011652 TYPE *:G0 TYPE THIS DIGIT 
(1) 011616 105337 011654 7$: DECB = $OCNT 3: T BY 1 
(1) 011622 003347 BGT 2$ +:BR IF MORE TO DO 
(1) 011624 002402 BLT 6$ *:BR IF DONE 
(1) 011626 005204 INC R4 + INSURE LAST DIGIT ISN'T A BLANK 
(1) 011630 000744 BR 2$ *:G0 DO THE LAST DIGIT 
(1) 011632 012605 6$: MOV (SP)+,R5 + :RESTORE 
(1) 011634 012604 MOV (SP) +_RG SRESTORE R4 
(1) 011636 012603 MOV (SP) +.R3 * RESTORE R3 
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(1) 011640 016666 000002 000004 MOV 2(SP) ,4(SP) 
(1) 011646 012616 MOV (SP) +. (SP) 
(1) 011650 000002 RTI 
(1) 011652 000 8$ .BYTE 0 
(1) 011653 000 "BYTE 0 
71) 011654 000 $OCNT: <BYTE 0 
(1) 011655 000 $OFILL: .BYTE 0 
(1) 011656 000000 SOMODE : 0 

1454 
(1) 
ts) 
(1) > *SIGNED DECIMAL (ASCII) 
(1) > *NUMBER IS POSITIVE OR NEGATIVE A 
(1) : *BEF ORE THE FIRST PIGIT OF 
(1) **REPLACED WITH SPACES. 
(1) **CALL: 
(1) 7* MOV NUM, - (SP) 
cD te TYPDS 
( 
(1) 011660 STYPDS: 
(3) 011660 010046 MOV RO,-(SP) 
(3) 011652 010146 MOV 1°=(SP) 
(3) 011664 010246 MOV R2.-(SP) 
(3) 011666 010346 MOV R3,-(SP) 
(3) 011670 010546 MOV R5.-(SP) 
(1) 011672 012746 020200 MOV #20200,-(SP) 
(1) 011676 016605 000020 MOV 20(SP) RS 
(1) 011702 10000 BPL 1$ 
(1) 011704 005405 NEG R5 
(1) 011706 112766 000055 000001 MOVB = #'=, 1(SP) 
(1) 011714 005000 1$: CLR RO 
(1) 011716 012703 012074 MOV #SDBLK ,R3 
(1) 011722 112723 000040 MOV? #' ,(R3)+ 
(1) 011726 005002 2$ CLR R 
(1) 011730 016001 012064 MOV $DTBL (RO) ,R1 
(1) 011734 160105 3$ SUB R1,R5 
(1) 011736 002402 BLT 4$ 
(1) 011740 005202 INC R2 
(1) 011742 000774 BR 3$ 
(1) 011744 060105 4$ ADD R1,R5 
(1) 011746 005702 TST R2 
(1) 011750 001002 BNE 5$ 
(1) 011752 105716 TSTB. ~— (SP) 
(1) 011754 100407 BMI 7$ 
(1) 011756 106316 5$ ASLB (SP) 
(1) 011760 103003 BCC 6$ 
(1) 011762 116663 000001 177777 MOVB _—«1(SP) ,-1(R3) 
(1) 011770 052702 000060 $: BIS #'0,R2 
(1) 011774 052702 000040 7$: BIS "Re 
(1) 012000 110223 MOVB _—R2, (R3) + 
‘1% 072002 005720 TST (RO) + 
(1) 012006 020027 000010 CMP RO,#10 
(1) 012010 002746 BLT 2$ 
(1) 012012 003002 BGT 8$ 
(1) 012014 010502 MOV R5,R2 

| 
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3;;SET THE STACK FOR RETURNING 


; sRETURN 

STORAGE FOR ASCII DIGIT 
‘TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 


ITCH 
ER OF DIGITS TO TYPE 


WORD :NUMB 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MePSORRSLSSLALASELESAAS ALLA ASE SEAS ASA SERRE R AAAS AAA A RARE SEED SS Oe DS 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


NUMBER .Y TYPE IT. DEPENDING ON WHETHER THE 


SPACE OR A MINUS SIGN WILL BE TYPED 


THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


7;;PUT_ THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


PUSH RO ON STACK 
3 PUSH R1 ON STACK 


ZIMAKE THE ASCII NUMBER NEG. 
ZERO THE CONSTANTS INDEX 
: SETUP THE OUTPUT POINTER 
2s SET ag | FIRST CHARACTER TO A BLANK 
THE BCD NUMBER 


St THE CONSTANT 
+ FORM yet BCD DIGIT 


R_IF DONE 
‘INCREASE THE BCD DIGIT BY 1 


3;:ADD BACK THE CONSTANT 

3;CHECK_IF BCD DIGIT=0 

73FALL THROUGH IF 0 

e¢STILL DOING LEADING 0°S? 
R IF YES 


::BR_IF NO 
7:YES--SET THE SIGN 
2 MAKE THE BCD BiG GIT ASCII 
E IT A SPACE IF NOT ALREADY A DIG 

[:PUT THIS CHARACTER IN THE OUTPUT BUF 
22 JUST INCREMENTING 

CHECK THE TABLE INDEX 
3360 fe he NEXT DIGIT 


:60 
Z:GET THE LSD 


IT 
FER 


SEQ 0043 
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000764 


000004 


104407 


104401 
122737 


177777 


012074 
000002 


001103 


001102 
002000 


001164 


920000 


012274 
001171 


000001 


001114 
011202 


177776 


000004 


167016 
167006 


001116 
001114 
166746 


001214 
012226 
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BR 6$ 33G0 CHANGE TO ASCII 
8$: TSTB (SP) + + sWAS THE LSD THE FIRST NON-ZERO? 
BPL ;BR IF NO 
MOVB -1(SP) ,-2(R3) +S YES==SET THE SIGN FOR TYPING 
9$: CLRB (R3) ;zSET THE TERMINATOR 
MOV (SP)+,R5 3z;POP STACK INTO R5 
MOV (SP)+,R3 3zPOP STACK INTO &3 
MOV (SP)+,R2 77;POP STACK INTO R2 
MOV (SP)+,R1 3zPOP STACK INTO R1 
MOV (SP)+,RO + ¢POP STACK INTO RO 
TYPE $DBLK sNOW TYPE THE NUMBER 
MOV 3(SP) ,4(SP) + : ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI 7 RETURN TO USER 
$DTBL: 10000 
000. 
100. 
0. 
$DBLK: 


-BLKW 4 
.SBTTL ERROR HANDLER ROUTINE 


DIOS SII ISIOISIOIIOISIISIIIISIISIIDOIIOIISIUIOIIUIOIOIISIOIDIOISOIOI IOI TOI IOI SIDI IDE 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SWRCK ON ERROR 


0 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
=1 HALT ON ERROR 


;*SW15 
3*SW13=1 INHIBIT ERROR TYPEOUTS 
3*SW10=3 BELL ON ERROR 
3 *SWO9=1 LOOP ON ERROR 
7 *CALL 
s* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR TEST FOR CHANGE IN SOFT-SWR 
CKSWR :G0 Look" FOR SWR_ CHANGE 
7$: INCB SERFLG SET THE cm FLAG 
BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY : IDISPLAY 43 _— AND ERROR FLAG 
BIT #31T10,aSWR : BELL ON ERR 
BEQ 1$ SKIP 
TYPE peer : TRING a 
1$: INC $ERT :COUNT THE NUMBER OF ERRORS 
op $3°5e SERRPC 7:GET ADDRESS OF ERROR INSTRUCTION 
MOVB @$SERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSWR SE SKIP esiure IF SET 
BNE 20$ : 7: SKIP TYPEOUT 
JSR PC, SWRCK 7:60 TO USER ERROR ROUTINE 
20$ TYPE -SCRLF 
CMPB MAPTENV, SENV 3:RUNNING IN APT MODE 
BNE 2 iNO, SKIP APT ERROR REPORT 
MOVB SITEMB,21$ ITEM NUMBER AS ERROR NUMBER 
215 ie ee Piece >;REPORT FATAL ERROR TO APT 


SEQ 0044 


— OO - —- 
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| CVDRAB.P11 11-SEP-81 12:21 ERROR HANDLER ROUTINE SEQ 0045 
(1) 012227 000 BYTE 0 
(1) 012230 000777 22$: BR 22$ ;;APT_ERROR LOOP 
(1) 012232 005777 166702 2$: TST aSWR 7 HALT RROR 
(1) 012236 100002 BPL 3$ 3;SKIP IF CONTINUE 
(1) 012240 000000 HALT : HALT ON ERROR! 
(1) 012242 104407 CKSWR TEST FOR CHANGE IN SOFT=SWR 
(1) 012244 032777 001000 166666 3$: BIT #BITO9,aSWR ; LOOP ON ERROR SWITCH SET? 
(1) 012252 001402 BEQ 4$ ;BR_IF NO 
(1) 012254 013716 001110 MOV $LPERR, (SP) TIFUDGE RETURN FOR LOOPING 
(1) 012260 005737 001162 4$: TST SESCAPE 3;CHECK FOR AN ESCAPE ADDRESS 
(1) 012264 001402 BEQ 5$ ;;BR_IF NONE 
Hh 815$96 013716 001162 $$ MOV SESCAPE , (SP) 3;FUDGE RETURN ADDRESS FOR ESCAPE 
| (1) 012272 000002 RTI ; RETURN 
| 1456 FI REE RRR ERE REE ERE REE 
1457 “60 TYPE ERROR 
1458 :60 UPDATE SOFTWARE SWR IF ‘CNTRL/G' 
1459 MOASAASBARALLLALASLELASSALAASASASESE AAS SAS AR AAR R RARER SRA S ARRAS RSS OG 
1460 012274 113737 001102 001534 SURCK: MOVB STSTNM,TSTNUM = ;SET_UP y 3 on ON ER 
1461 012302 004737 012312 JSR PC,SERRTYP :GO TYPE ERR 
1462 012306 104407 eS : GO LOOK FOR OSM CHANGE 
1463 012310 000207 PC RETURN TO ERROR HANDLER 
"Tt - SBTTL ERROR MESSAGE TYPEOUT ROUT INE 
(2) MORSE SALALALESASEASASSELASE ASSESSES EERE ARRAS ALAS ARRAS ARERR ASSESS 
(1) TRTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
(1) ;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘'ERROR TABLE'’ (S$ERRTB), 
a [*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 012312 SERRTYP: 
(1) 012312 104401 001171 TYPE -SCRLF 72""CARRIAGE RETURN’ & “'LINE FEED'’ 
(1) 012316 010046 MOV RO,-(SP) 7-SAVE R 
(1) 012320 005000 CLR RO 7sPICKUP THE ITEM INDEX 
(1) 012322 153700 001114 BISB a4$ITEMB,RO 
(1) 012326 001004 BNE 1$ 331F ITEM NUMBER IS ZERO, JUST 
ire « 7:TYPE THE PC OF THE ERROR 
(2) 012330 013746 001116 MOV SERRPC ,-(SP) 7;SAVE SERRPC FOR TYPEOUT 
(2) eco ty ADDRESS 
(2) 012334 104402 TYPOC 3GO_TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 012336 000426 BR 6$ GET OUT 
(1) 012340 005300 1$: DEC RO :TADJUST THE INDEX SO THAT IT WILL 
(1) 012342 006300 ASL RO 6 WORK FOR THE ERROR TABLE 
(1) 012344 30 ASL RO 
(1) 012346 006300 ASL RO 
(1) 012350 062700 001320 ADD #$ERRTB,RO :7FORM TABLE POINTER 
(1) 012354 012037 012364 MOV (RO)+,2$ ;=PICKUP car “yey POINTER 
(1) 012360 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
(1) 012362 104401 TYPE ERA THE PERROR MESSAGE 
(1) 012364 000000 2$: WORD "ERROR MESSAGE"’ POINTER a A HERE 
(1) 012366 104401 001171 TYPE -SCRLF : 77 'CARRIAGE RETURN'’ & “LINE 
(1) 012372 012037 012402 3$: MOV (RO)+,4$ PICKUP ‘DATA HEADER" BOINTER. 
(1) 012376 001404 BEQ 5$ : SKIP TYPEOUT IF 0 
(1) 012400 104401 TYPE 77 TYPE THE ‘DATA HEADER’ 
(1) 012402 000000 4$: -WORD 0 72° '‘DATA HEADER’ POINTER = HERE 
(1) 012404 104401 001171 TYPE -SCRLF :2'CARRIAGE RETURN’ & “'LINE FEED’ 
(1) 012410 011000 5$: MOV (RO) ,RO 72PICKUP ‘DATA TABLE" POINTER 


a IS ae ee ee Rn SE eS SN ae a 


———— 
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(1) 012412 001004 BNE 7$ :GO TYPE THE DATA 
(1) 012414 01260 6$: MOV (SP) +,RO : FRESTOR E RO ea 
(1) 012416 104401 001171 TYPE LSCRLF = "'CARRIAGE RETURN’ & “LINE FEED" 
(1) 012422 000207 RTS PC + [RETURN 
(1) 012624 7$: 
(2) 012424 013046 MOV a(RO)+,-(SP) ; SAVE a(RO)+ FOR TYPEOUT 
(2) 012426 104402 TYPOC ':G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 012430 005710 TST (RO) *:1$ THERE ANOTHER NUMBER? 
(1) 012432 00177 BEQ 6$ >:BR IF NO 
(1) 012434 104401 012442 TYPE 8$ *:TYPE TWO(2) SPACES 
(1) 012440 00077 BR 7$ +: LOOP 
(1) 012442 020040 000 8$: “ASCIZ / / *:TWO(2) SPACES 
(1) 012446 “EVEN 
“ae .SBTTL SCOPE HANDLER ROUTINE 
‘3 FRR RRR EERE ERE ERE EERE EEE EKER REE ERE REE ER EREEEE 
(1) <STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ‘*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) ‘*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15: 08> 
(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARF 
(1) *SW14=1 LOOP ON TEST 
(1) *SW11=1 INHIBIT ITERATIONS 
(1) + *SWO9=1 LOOP ON ERRO 
(1) + *SWO8=1 LOOP ON TEST IN SWR<5:0> 
(1) 7 *CALL 
(1) :* SCOPE : :SCOPE=I0T 
(1) 012446 SSCOPE: 
(1) 012446 104407 CKSWR sz TEST FOR CHANGE IN SOFT-SWR 
(2) 012450 104407 CKSWR *G0 LOOK FOR SWR CHANGE 
(1) 012452 032777 040000 166460 1$: BIT #BI1T14,aSWR ; LOOP ON PRESENT TEST? 
(1) 012460 001717 BNE SOVER “YES IF SW14=1 
(1) :HHHAASTART OF CODE FOR THE XOR TESTERMMAAA 
(1) 012462 000416 $XTSTR: BR 6$ cil RUNNING ON THE ‘‘XOR’’ ror te CHANGE 
(1) *THIS INSTRUCTION TO A “'NOP’’ (NOP=240) 
(1) 012464 013746 000004 MOV Q#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 012470 012737 012510 000004 MOV #5$, AAERRVEC ::SET FOR TI MEOUT | 
(1) 012476 005737 177060 TST a#177060 :TIME OUT ON XOR 
(1) 012502 012637 000004 MOV (SP)+,aMERRVEC ::RESTORE THE ERROR VECTOR 
(1) 012506 000466 BR $SVLAD 3360 HY THE NEXT TEST 
(1) 012510 022626 5$: CMP (SP) +, (SP)+ [CLEAR THE STACK AFTER A TIME OUT 
(1) 012512 012637 900004 MOV (SP) +. a#ERRVEC : ERESTORE THE ERROR VECTOR 
(1) 012516 000426 BR 7$ LOOP ON THE PRESENT TEST 
(1) 012520 6$:;:#HHAHEND OF CODE FOR THE xOR™ tESTERMAMAR 
(1) 012520 032777 000600 166412 BIT #B1T08,aSwR : LOOP ON SPEC. TEST? 
(1) 012526 001407 BEQ 2$ R IF NO 
(1) 012530 017746 166404 MOV aSWR,-(SP) :28E1 DESIRED TEST NUM. FROM SWR 
(1) 012534 042716 000300 BIC #SSWRMK , (SP) >STRIP AWAY UNDESIRED BITS 
(1) 012540 122637 001102 CMPB ss (SP)+,$TSTNM =: :ON THE RIGHT TEST? 
(1) 012544 001465 BEQ SOVER ::BR IF YES 
(1) 012546 105737 001103 2$: TSTB  $ERFLG 3 THAS AN ERROR OCCURRED? 
(1) 012552 001421 BEQ ‘BR IF N 
(1) 012554 123737 001115 001103 CMPB  —s- SERMAX,, SERFLG 7: MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 012562 101015 BHI! FN 
(1) 012564 032777 001000 166346 BIT #B1T09.aSwR SLOOP ON ERROR? 
(1) 012572 001404 BEQ 4$ +:BR IF NO 
| 
| 


SEQ 0046 


po 
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013737 


o-O00-] 000900 
OS OS 2 ONO 


022737 


117746 


001110 


001103 
001160 


004000 
001202 


v01104 
001160 


000001 


001106 


000176 
166172 
166166 
177600 
000007 
001134 
013473 
013500 
000176 


013511 


166110 


166104 


001106 


166314 


001104 


001104 
001160 


001200 


001140 


000001 


SCOPE HANDLER ROUTINE 


7$: aa tp ati :-SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG ;:ZERO THE ERROR FLAG 
CLR $TIMES ab pe THE NUMBER OF oe TO MAKE 
BR 1$ 7 sESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR +f gg! ITERATIONS? 
BNE 1$ 44° IF YES 
TST $PASS :1F FIRST PASS OF PROGRAM 
BEQ 1$ $ INHIBIT iiae cet 
INC SICNT : INCREMENT ITERATION COUN 
CMP $TIMES,SICNT +s CHECK THE NUMCER OF ITERATIONS MADE 
BGE SOVER ::BR_IF MORE ITERATION REQUIkKED 
1$: MOV #1,$ICNT sREINITIALIZE THE ITERATION COUNTER 
MOV SMXCNT ,STIMES SISET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB $TSTNM ;:COUNT TEST 


NUMBERS 
MOVB STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
MOV (SP), $LPADR ; SAVE SCOPE LOOP ADDRESS 
MOV (SP) ,$LPERR :-SAVE ERROR LOOP ADDRESS 
CLR ESCAPE £2 CLEAR THE ESCAPE FROM ERROR ADDRESS 


MOVB #1,$ERMAX SONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV $TSTNM,@DISPLAY : : ;DISPLAY TEST NUMBER 

MOV $LPADR. (SP) FUDGE RETURN ADDRESS 
SMXCNT: 2000. Bat NUMBER OF ITERATIONS 


~SBTTL TTY INPUT ROUTINE 


STEAK ERE EEE EERE ERE ERE REE REE EE 


-ENABL LSB 


DBO SUISOI UII ISIRIDIIUIIUIIO DOD rt trrittnt 

> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

>*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WIL 

>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP ASWREG, SWR s:1S THE SOFT-SWR SELECTED? 
BNE 15$ : BRANCH IF NO 
TSTB asks :: CHAR THERE? 
BPL 15$ :IF NO, DON" if WAIT AROUND 
MOVB = a$TKB, -(SP) SZSAVE THE C 
BIC #*C177, (SP) +: STRIP-OFF THE ASCII 
CMP 7 (SP5+ *:]$ IT A CONTROL G? 
BNE 15$ ::NO. RETURN TO USER 
CMPB  —s- $AUTOB,, #1 ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ + =BRANCH IF YES 
TYPE /SCNTLG ZzECHO THE CONTROL-G (*o) 
$GTSWR: TYPE *SMSWR >: TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) >SAVE SWREG FOR TYPEOUT 
TYPOC +260 TYPE--OCTAL ASCII CALL DIGITS) 
TYPE SME W ::PROMPT FOR NEW SWR 
19$: CLR =(SP) ::CLEAR COUNTER 
CLR -(SP) *: THE NEW SWR 
7$: TSTB = @STKS : CHAR THERE ? 
BPL 7$ ‘IF NOT TRY AGAIN 
MOVB = a$TKB,-(SP) ::PICK UP CHAR 


SEQ 0047 


— 
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SEQ 0048 


a) 013042 042716 177600 BIC #*(177, (SP) ::MAKE IT 7-BIT ASCII 
a 
( 
(1) 013046 021627 000025 9$: CMP (SP) #25 ::1$ IT A CONTROL=U? 
(1) 013052 001005 BNE 10$ +:BRANCH IF NOT 
(1) 013054 106401 013466 TYPE /$SCNTLU *:YES, ECHO CONTROL-U (*U) 
(1) 013060 062706 000006 208: ADD #6,SP +: IGNORE PREVIOUS INPUT 
(1) 013064 000757 BR 19$ *:LET'S TRY IT AGAIN 
(1) 
(1) 013066 021627 000015 108: CMP (SP) #15 ::1S IT A <CR>? 
(1) 013072 001022 BNE 16$ + BRANCH IF NO 
(1) 013074 005766 000004 TST 4(SP) s7YES, IS IT THE FIRST CHAR? 
(1) 013100 001403 BEQ 11$ : :BRANCH IF YES 
(1) 013102 016677 000002 166030 MOV 2(SP) ,2SWR +: SAVE NEW SWR 
(1) 013110 062706 000006 11$: ADD #6,SP +: CLEAR UP STACK 
(1) 013114 104401 00117 14$ TYPE SSCRLF *:ECHO <CR> AND < 
(1) 013120 123727 $01135 000001 CMPB ~—s-: $INTAG, #1 > RE-ENABLE TTY ky INTERRUPTS? 
(1) 013126 001003 BNE 15$ : SBRANCH IF NOT 
(1) 013130 012777 000100 166006 MOV #100, a$TKS ‘RE-ENABLE TTY KBD INTERRUPTS 
(1) (13136 070002 15$: RTI <> RETURN 
(1) 013140 ‘737 011042 16$: JSR PC, S$TYPEC sECHO CHAR 
(1) 013144 021627 000060 CMP (SP) , #60 SO CHAR < 0? 
(1) 013150 002420 BLT 18$ + BRANCH IF YES 
(1) 013152 021627 000067 CMP (SP) ,#67 7:CHAR > 7? 
(1) 013156 003015 BGT 18$ + BRANCH IF YES 
(1) 013160 042726 000060 BIC #60, (SP) >:STRIP=OFF ASCII 
(1) 013164 005766 000002 TST 2(°P) ::1S THIS THE FIRST CHAR 
(1) 013170 001403 BEQ 17$ ::BRANCH IF YES 
(1) 013172 006316 ASL (SP) *=NO, SHIFT PRESENT 
(1) 013174 006316 ASL (SP) s 3 CHAR OVER TO MAKE 
(1° 013176 006316 ASL (SP) >> ROOM FOR NEW ONE. 
(7) 013200 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
1) ©13206 056616 177776 BIS -2(SP), (SP) +:SET IN NEW CHAR 
(1) 013210 000707 R 7$ ::GET THE NEXT ONE 
(1) 012212 104401 001170 188: TYPE SQUES +: TYPE ?<CR><LF> 
(1) 013216 000726 BR 20$ >= SIMULATE CONTROL-U 
(1) .DSABL LSB 
aD 
( 
(2) Pe gece tse gt ae Ph gh gg RE ge te et Sgt a Eat a 
(1) iS THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
5 Lie 
(1) 3 RDCHR : INPUT A SINGLE CHARACTER FROM THE TTY 
(1) te RETURN HERE £7 CHARACTER 1S ON THE STACK 
ae te sWITH PARITY BIT STRIPPED OFF 
(1) 
(1) 013220 011646 $SRDCHR: MOV (SP) ,=(SP) ;PUSH DOWN THE PC 
(1) 013222 016666 000004 000002 MOV 4(SP),2(SP) “SAVE THE PS 
(1) 013230 105777 165710 1$: TSTB = a@STKS SC UAIT FOR 
(1) 013234 100375 BPL 1$ +A CHARACTER 
(1) 0132 117766 1657046 000004 MOVB a$TKB,4<SP) +:READ THE TTY 
(1) 013244 042766 177600 000004 BIC #°(<1?7>.4(SP) ::GET RID OF JUNK IF ANY 
(1) 313252 026627 000004 000023 CMP 4(SP) #28 *:1S IT A CONTROLS? 
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CVDRAB.P11 11-SEP-81 12:21 Y INPUT ROUTINE SEQ 0049 
013260 001013 BNE 3$ ; BRANCH IF NO 
013262 105777 165656 2$: TSTB asTKS s;WAIT FOR A CHARACTER 
013266 100375 BPL 2$ ; sLOOP UNTIL ITS THERE 
013270 117746 165652 MOVB a$TKB,-(SP) sGET CHARACTER 
013274 042716 177600 BIC #*°C177, (SP) + MAKE IT 7-BIT ASCII 
013300 022627 000021 CMP (SP)+, #2) 3731S IT A CONTROL-Q? 
013304 001366 BNE 2s sz 1F NOT DISCARD IT 
013306 000750 BR 1$ 33 . RESUME 
013310 026627 000004 000021 3$: CMP 4(SP) ,#$XON 3z1S IT A RANDOM XON? ;RANOO1 
013316 001744 BEQ 1$ ; BRANCH IF YES ;RANOO1 
013320 026627 000004 000140 CMP 4(SP), #140 res IT UPPER CASE? 
013326 002407 BLT ;;BRANCH IF YES 
013330 026627 000004 000175 CMP etsp), #175 t:1S IT A SPECIAL CHAR? 
013336 003003 BGT 4$ ; «BRANCH IF YES 
013340 042766 000040 000004 BIC #40,4(SP) sMAK= IT UPPER CASE 
013346 000002 4$: RTI £260 BACK TO USER 


MR ARRSSSAARASLALZALLSESAASASER SERRA SERA SARA S RARER RRR ARERR RRR ARSE SD 


‘*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3 *CALL 

se RDLIN 3; INPUT A STRING FROM THE TTY 

77 RETURN HERE SE Reiien OF FIRST CHARACTER WILL BE ON THE STACK 
;* TERMINATOR WILL BE A BYTE OF ALL 0°S 


013350 010346 $RDLIN: MOV R3,~-(SP) 7: SAVE R3 

013352 012703 013456 ‘$: MOV #$STTYIN,RS ::GET ADDRESS 

013356 022703 013466 2$: CMP ASTTYINGS. ,R3 acorn FULL? 

015362 101405 BLOS 4$ ; IF YES 

013364 104410 RDCHR 7:G0 READ ONE CHARACTER FROM THE TTY 
013366 112613 MOVB (SP)+, (R3) ;;GET CHARACTER 

013370 122713 000177 10$: CMPB #177,(R3) 3218 17 A RUBOUT 

013374 001003 BNE 3$ 23 SKIP IF NOT 

013376 104401 001170 4$: TYPE , SQUES s3TVWE A *?" 

013402 000763 BR 1$ Z:CLEAR THE BUFFER AND LOOP 
013404 111337 013454 3$: MOVB (R3) ,9$ ECHO THE CHARACTER 

013410 104401 013454 TYPE . 

013414 122723 000015 CMPB #15, (R3)+ 23 CHECS FOR FO 

013420 001356 BNE 2$ ;LOOP IF NOT RETU 

013422 105063 177777 CLRB -1(R3) 7: CLEAR RETURN (THE "15) 

013426 104401 001172 TYPE -SLF bby | A LINE FEED 

013432 012603 MOV (SP)+,R3 7 RESTORE R3 

013434 011646 MOV (SP) ,=(SP) 2 sADJUST THE STACK AND PUT ADDRESS OF THE 
013436 016666 000004 000002 MOV 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
013444 012766 013456 000004 MOV #STTYIN,4(SP) 

013452 000002 RT] ; ;RETURN 

013454 000 9$: -BYTE 0 : ¢ STORAGE FOR ASCII CHAR, TD TYPE 
013455 000 -BYTE 0 NAT 

013456 000010 STTYIN: .BLKB_ 8, : ZRESERVE 8 BYTES FOR TTY INPUT 
ME rg: 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> :: CONT ROL ° 

01347 136 006507 000012 SCNILG: .ASCIZ /*G/<15><12> jit JNTROL *'G"’ 

013500 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = 

013506 020075 000 

013511 040 047040 053505 SMNEW: .ASCIZ / NEW = 

013516 036440 000040 


— 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


SL AeeeeeataaaeeanaaaaneteeeeneaKaneaKeaaaKeteaenaeanenaeenaneeenes 


TA me ON. sn st a ak sk tk kk kk kk th th ht oh hh 4 0 Fh I SO I Ht I SS St SS OS SS 
ee ee ee eee ee ee we ee ee ee ee ee ee ee ae ee ae a ee ee es we SS SS ES SSS SSS YOY SSI YOY I~ 
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MAINDEC=11=CVDRA=B DRV11B_ DMA INTERFACE DIAGNOSTIC MACY11 $0(1046) ites 12:22 PAGE 5-41 
CVDRAB.P11 11-SEP-81 12:21 READ AN OCTAL NUMBER FROM THE T SEQ 0050 


(1) :*THIS ROUT INE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) [*CHANGE IT TO BINARY. 

(1) :eTHE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
(1) S®OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '’?'' WILL BE a WPED 
(1) :*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
(1) seTHEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 

** 

(1) ie RDOCT :;READ AN OCTAL NUMBER 

(1) te RETURN HERE +:LOW ORDER BITS ARE ON TOP OF THE STACK 
a) te ‘:HIGH ORDER BITS ARE IN $HIOCT 
(1) 013522 011646 ; $RDOCT: MOV (SP) ,=(SP) ; s PROVIDE SPACE FOR THE 

(1) 013524 016666 000004 090002 MOV 4 (SP) ,2(SP) +: INPUT NUMBER 

(3) 013532 010046 MOV RO,=(SP) *:PUSH RO ON STACK 

(3) 013534 010146 MOV R1,-<SP) : PUSH R1 ON STACK 

(3) 013536 010246 MOV R2,-(SP) PUSH R2 ON STACK 

(1) 013540 104411 18: RDLIN +=READ AN ASCIZ LINE 

(1) 013542 012600 MOV (SP)+,RO 33GET ADDRESS OF 1ST CHARACTER 
(1) 013544 010037 013650 MOV 20,5$ SAND SAVE IT 

(1) 013550 005001 CLR R1 S:CLEAR DATA WORD 

(1) 013552 005002 CLR R2 

(1) 013554 112046 2$: MOVB _—— (RO) +, =(SP) ::PICKUP THIS CHARACTER 

(1) 013556 001420 BEQ 3$ T:IF ZERO GET OUT 

(1) 013560 122716 000060 CMPB es #0, (SP) : MAKE SURE THIS CHARACTER 

(1) 013564 003026 BGT 4$ ‘IS AN OCTAL DIGIT 

(1) 013566 122716 000067 CMPB es #77, (SP) 

(1) 013572 002423 BLT 4$ 

(1) 013574 006301 ASL R1 ri*2 

(1) 013576 006102 ROL R2 

(1) £13600 006301 ASL R1 77%4 

(1) 013602 006102 ROL R2 

(1) 013604 006301 ASL R1 73*8 

(1) 013606 006102 ROL R2 

(1) 013610 042716 177770 BIC #*°C7, (SP) ::STRIP THE ASCII JUNK 

(1) 013614 062601 ADD (SP)+,R1 SZADD IN THIS DIGIT 

(1) 013616 000756 BR 2$ + LOOP 

(1) 013620 005 3$: TST (SP)+ ::CLEAN TERMINATOR FROM STACK 

(1) 013622 010166 000012 MOV R1,12(SP) +:SAVE THE RESULT 

(1) 013626 010237 013660 MOV R2.$HIOCT 

(3) 013632 012602 MOV (SP) +,R2 ::POP STACK INTO R2 

(3) 013634 012601 MOV (SP)+._R1 :3POP STACK INTO RI 

(3) 013636 012600 MOV (SP) +-RO POP STACK INTO RO 

(1) 013640 02 RTI + = RETURN 

(1) 013642 005726 4$: TST (SP)+ SICLEAN PARTIAL FROM STACK 

(1) 013€44 105010 CLRB ~—_ (RO) +:SET A TERMINATOR 

(1) 013646 104401 TYPE +:TYPE UP THRU THE BAD CHAR. 

(1) 013650 000000 5$: .WORD 0 

(1) 013652 104401 001170 TYPE SQUES U7" VCR @ ULE 

(1) 013656 000730 BR is ::TRY AGAIN 

(1) 013660 000000 SHIOCT: .WORD 0 “HIGH ORDER BITS GO HERE 
1468 “SBTTL POWER DOWN AND UP ROUTINES 

(2) JAAR AEE AAA ERE EEA AERAAR EAE AREER RRR AERA RRR EE 
(1) POWER DOWN ROUTINE 

(1) 013662 012737 014026 000024 jpoweR MOV #SILLUP, a#PWRVEC gSET FOR FAST UP 

(1) 013670 012737 000340 000026 MOV #340, a#PWRVEC+ BRIO 
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CVDRAB.P11 11=SEP=81 12:21 POWER DOWN AND UP ROUTINES SEQ 0051 
(3) 013676 010046 MOV RO,-(SP) 33PUSH RO ON STACK 
(3) 013700 010146 MOV R1,~(SP) 33PUSH R1 ON STACK 
(3) 013702 010246 MOV R2,~(SP) 7sPUSH R2 ON STACK 
(3) 013704 010346 MOV R3,-(SP) ;sPUSH R3 ON STACK 
(3) 013706 010446 MOV R4,-(SP) 3=PUSH R4 ON STACK 
(3) 013710 010546 MOV R5,~(SP) 33PUSH R5 ON STACK 
(3) 013712 017 165222 MOV @SWR,= (SP) :sPUSH @SWR ON STACK 
(1) 013716 010637 014032 MOV SP, $SAVR6 oeSaye SP 
(1) 013722 012737 013734 000024 MOV WSPWRUP,a#PWRVEC :;SET UP VECTOR 
(1) 013730 000000 HALT 
He 013732 000776 BR i ; HANG UP 
(2) MARE RRALALALASZSALALLARASARALARASARA SERA ASRS ARSE ARS SARE SARA DSSS! 
(1) {POWER a —— 
(1) 34 012737 014026 000024 $PwRUP #$ILLUP, hemens 3;SET FOR FAST DOWN 
(1) 013742 013706 014932 * MOV $SAVR6,S 7:GET SP 
(1) 013746 005037 014U32 CLR SSAVR6 zsWAIT LOOP FOR THE TTY 
(1) 013752 005237 014032 1$: INC SSAVR6 7sWAIT FOR THE INC 
(1) 013756 001375 BNE 1$ 33 WORD 
(3) 013760 012677 165154 MOV (SP)+,@SWR ::POP STACK INTO @SWR 
(3) 64 012605 MOV (SP)+,R5 3zPOP STACK INTO R5 
(3) 012604 MOV (SP)+,R4 ::POP STACK INTO R4 
(3) 013770 012603 MOV (SP)+,R3 3:POP STACK INTO R3 
(3) 013772 012602 MOV (SP) +,R2 ee STACK INTO R2 
(3) 013774 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 013776 012600 MOV (SP)+,RO 33 STACK INTO RO 
(1) 012737 013662 000024 MOV #SPWRON, aMPWRVEC :; SET THE POWER DOWN VECTOR 
(1) 014006 012737 000340 000026 MOV #340, a#PWRVEC+2 2 3PRIO: 
(1) 014014 104401 TYPE REPORT THE POWER FAILURE 
(1) 014016 014034 SPWRMG: .WORD PWRMSG : SPOWER FAIL etter POINTER 
(1) 014020 012716 MOV (PC) +, (SP) ii RESTART AT RESTR 
(1) 014022 002406 SPWRAD: .WORD RESTRT ;sRESTART ADDRESS 
(1) 014024 000002 RTI 
(1) 014026 .0000 SILLUP: HALT 33 THE POWER UP SEQUENCE WAS STARTED 
(1) 014030 v0776 BR 72 ie our tea THE POWER DOWN WAS COMPLETE 
(1) 014032 000000 SSAVR6: 0 T THE SP HERE 
1469 014034 005015 042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 
014042 051101 042524 020104 
014050 051106 046517 050040 
014056 051127 043040 044501 
014064 000114 
1470 -EVEN 
est -SBTTL TRAP DECODER 
(2) MARA SELELALLLLELLESALALLES ERLE ARERR SERA SARA R SERRA RASA RSA ARRAS AD OS | 
(1) jaTHls ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(1) USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) :20F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED iT WiLL 
(1) ;*GO TO THAT ROUTINE. 
(1) 014 010046 STRAP: MOV RO,=(SP) 77 SAVE_RO 
(1) 014070 016600 000002 MOV 2(5P) 20 2 2GET TRAP ADDRESS 
(1) 014074 005740 TST =(RO) KUP BY 2 
(1) 014076 111000 MOVB (RO) ,RO ziGET RIGHT BYTE OF TRAP 
(1) 014100 006300 ASL RO POSITION FOR INDEXING 
(1) 014102 016000 014122 MOV STRPAD(RO),RO 3; INDEX TO TABLE 





—________— 
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-P11 11-SEP-81 12:21 TRAP DECODER SEQ 0052 


014106 000200 RTS RO 3:G0 TO ROUTINE 


m 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


014110 011646 $TRAP2: MOV (SP) ,=(SP) 3sMOVE THE PC DOWN 
014112 016666 000004 000002 MOV 4(SP) ,2(SP) :sMOVE THE PSW DOWN 
014120 000062 RTI 7sRESTORE THE PSW 


-SBTTL TRAP TABLE 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘'TRAP’' INSTRUCTION. 


: ROUTINE 
014122 014110 $STRPAD: .WORD $TRAP2 
014124 010630 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
014126 011456 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
014130 011432 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
014132 011472 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
014154 011660 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


014136 013006 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


| 
| 
014140 012736 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT=SWR 
014142 013220 $RDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
(3) Baia 013350 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


ee ee a ee a ae ae DZ 


WING —*W — WWW WNW WWW WI \WANWN tt tS SS SY P- 
ee Ne ee ee ee SS YS eS SS ee ev we 


013522 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 


1473 -SBTTL ASCII MESSAGES 
044524 EMI: 
020124 


051040 EM2: eASCIZ ‘REG READ/WRITE ER" 
051127 
051105 


051040 EM3: -ASCIZ /BUS RESET ER/ 
042440 


Oe 1ee0 EMG: -ASCIZ /FNCT BITS FAILED TC SET STAT BITS/ 


-ASCIZ /REG TIMEOUT ER/ 
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041040 


020131 EMS: »ASCIZ /READY INTR FAILURE/ 
043040 
042522 


054504 EM6: -ASCIZ /READY CLR OR SET ER/ 
047440 
020124 


052524 EM?: .ASCIZ /STATUS ER ON XFER/ 


1478 
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MAINDEC=11=CVDRA=B DRV11B DMA INTERFACE DIAGNOSTIC 
CVDRAB.P11 11-SEP-81 12:21 ASCII MESSAGES SEQ 0053 

014344 020123 051105 047440 
014352 020116 043130 051105 
014360 000 

1481 014361 127 051117 020104 EM10: .ASCIZ /WORD COUNT ER ON XFER/ 
014366 047503 047125 020124 
014374 051105 047440 020116 
014402 043130 051105 000 

1482 014407 102 043125 042506 EM11: .ASCIZ /BUFFER ADRS ER ON XFER/ 
014414 020122 042101 051522 
014422 042440 020122 047117 
014430 054040 042506 000122 

1483 914436 040504 040524 042440 EM12: .ASCIZ /DATA ER FROM MEM/ 
(14444 020122 051106 046517 
(14452 046440 046505 000 

1484 014457 104 052101 020101 EM13: .ASCIZ /DATA ER TO MEM/ 
014464 051105 052040 020117 
014472 042515 000115 

1485 014476 044523 043516 042514 EM14: .ASCIZ /SINGLE CYCLE OFF DID NOT LOCK OUT CPU/ 
014504 041440 041531 042514 
014512 047440 043106 042040 
014520 042111 047040 052117 
014526 046040 041517 020113 
014534 052517 0124 050103 
014542 000125 

1486 014544 044523 043516 042514 EM15:  .ASCIZ /SINGLE CYCLE ON LOCKED OUT CPU/ 
014552 041440 041531 042514 
014560 047440 020116 047514 
014566 045503 042105 047440 
014574 052125 041440 052520 
014602 000 

1487 014603 015 050012 042514 WARN: .ASCII <15><12>/PLEASE DISABLE ‘'REV11°* MEMORY REFRESH OPTION/ 
014610 051501 020105 04450 
014616 040523 6102 020105 
0146 051042 053105 030461 
014632 020042 042515 047515 
014640 054522 051040 043105 
014646 042522 044123 047440 
014654 052120 047511 116 

1488 014661 015 040412 042116 eASCIZ <15><12>/AND ENABLE PROCESSOR MEMORY REFRESH / 
014666 042440 040516 046102 
014674 020105 051120 041517 
014702 051505 047523 020122 
014710 042515 047515 054522 
014716 051040 043105 042522 
014724 044123 020040 000040 

1489 014732 042516 020130 047514 EM16: .ASCIZ /NEX LOGIC ER/ 
014740 044507 020103 051105 
014746 000 

1490 014747 103 041531 042514 EM17: .ASCIZ /CYCLE FAILED TO CLK DBR ‘IN)/ 
014754 043040 044501 042514 
014762 020104 047524 041440 
014770 045514 042040 051102 
014776 024040 047111 000051 

1491 015004 040504 040524 042440 EM20: .ASCIZ ‘DATA ER FROM I/O PAGE (XCSR)"’ 
015012 020122 1106 046517 
015020 044440 047457 050040 
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MAINDEC=11=CVDRA-B_DRV11B DMA INTERFACE DIAGNOSTIC 
CVDRAB.P11 11-SEP-81 12:21 ASCII MESSAGES SEQ 0054 
015026 043501 020105 054050 
015034 051503 024522 000 
1492 015041 105 051122 041520 DHI: eASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
015046 020040 052040 052123 
015054 052516 020115 041040 
015062 051525 042101 020122 
015070 042440 050130 052103 
015076 020040 051040 053103 
015104 000104 
1493 015106 051105 050122 020103 DHe: eASCiZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 
015114 020040 051524 047124 
015122 046525 020040 052502 
015130 040523 051104 020040 
015136 042101 051522 020040 
015144 020040 054105 041520 
015152 020124 020040 041522 
015160 042126 —— 000 
1494 015163 105 051122 041520 DHS: eASCIZ /ERRPC TSTNUM BUSADR/ 
015170 020040 052040 052123 
015176 052516 020115 041040 
015204 051525 042101 000122 
1495 x 
1496 EVEN 
1497 015212 001116 001534 001122 DTI: SERRPC,TSTNUM, $BDADR,$GDDAT , $BDDAT ,0 
015220 001124 001126 000000 
1498 015226 001116 001534 001122 DT: $ERRPC,TSTNUM, $BDADR,$GDADR,$GDDAT , $BDDAT ,0 
015234 001120 001124 001126 
015242 000000 
1499 015244 001116 001534 001122 DT3: SERRPC, TSTNUM, $BDADR 0 
015252 000000 
1500 015254 005015 051511 052040 KDF11B: .ASCIZ <15><12>/1S THE PROCESSOR KDF11-B? / 
015262 042510 050040 047522 
015270 042503 051523 051117 
015276 045440 043104 030461 
015304 041055 020077 000040 
1501 015312 005015 051124 047101 IOTEST: .ASCIZ <15><12>. TRANSFERS FOR I/0 PAGE? 
015320 043123 051105 020123 
015326 047506 020122 027511 
015334 020117 040520 042507 
015342 020077 000040 
1502 015346 005015 042101 051104 IOADR: .ASCIZ <15><12>\ADDRESS OF I/0 PAGE? \ 
015354 051505 020123 043117 
015362 044440 047457 050040 
015370 043501 037505 020040 
015376 000 
1503 015400 - EVEN 
1504 DOO OIUIOIIUIIIIOISIIIIOIIOIIIIIIIIIIO III IOIIIUIOIUIUIUIOIDIDIUIOIDIDIDIODIOINIDIDIDINDID IE 
1505 > *DBUF" IS THE WORKING AREA IN EACH 4K MEM FOR ALL 
1506 = NPR OPERATIONS - IT IS 200 WORDS LONG 
1507 SOIC III IUIOIOIUIOIIDIOIIIDIOIIIIIOIIIIDIUIUIOIUIDIOIIOIOIIOIOIIIOIIDIOIDIO ISIS 
1508 015400 000000 bBUF : 0 :1ST ADRS OF DATA BUFFER 
1509 000001 . END 
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172410 377# 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
0000 390 
000000 390 
000000 390 
00000 390 
000000 390 
000000 390 
000 390 
000000 390 
000000 390 
000000 390 
000001 3794 390 
000000 390 
000000 390 
000000 390 
007452 1199 12404 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
000000 390 
00000 390 
000000 390 
00040 1451 14524 
000001 1451 14524 1455 
000200 514 14524 
00100 1451 14524 
000000 390 
000000 390 
000000 390 
000000 390 
000124 3784 390 
000000 390 
000001 3764 
00901 3764 610 615 664 1344 
000002 3764 
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CVDRAB.P11 11-SEP-81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0056 

BITO2 = 900004 3764 

B1T03 = 000019 3764 

BITO4 = 000020 3764 

BITOS = 00004) 3764 

BIT06 = 0001(0 3764 

BIT07 = 00020 3764 539 

BITO8 = 0004 )0 3764 1465 

BITO9 = 00100 3764 81455 1465 

BIT? = 0002 3764 

B1T10 = 0C2000 3764 1455 

BIT11 = 6¢4000 3764 81465 

BIT12 = Oluvec 3764 

BIT13 = 020006 3768 8 1055 1455 

BIT14 = 040000 3764 1465 

BIT15 = 100000 3764 

BIT2 = 000004 3764 

BITS = 000010 3764 

BIT4 = 000020 3764 

BITS = 000040 3764 

BIT6 = 000100 3764 746 

BIT? = 000200 3764 

BIT8 = 000400 3764 

BIT9 = 001000 3764 

BPTVEC= 000014 3764 

CKDAT 010460 959 14054 

CKDAT1 010526 1061 1152 1190 14244 

CKSTAT 010156 830 873 915 949 1043 1142 1180 1216 1258 13264 

CKSWR = 104407 1455 1462 1465 14714 

COR 001540 5074 540 551* 1162 

CCRSZR 002304 5464 

CR = 000015 3764 §=1451 

CRLF = 000200 3764 528 1451 

DBUF 015400 508 553 818 819% 839 862 883 885 904 924 937 970 999 
1031 1127 1195 1233 1275 1359 1363 1368 1405 1412 15084 

DBUFP) = 001542 we 553* 1160* 1161* 1162 1165 1195* 1203* 1233* * 1275" 1342 1382 

DDISP = 177570 3764 390 514 

DH1 = =—s- 015041 393 399 405 411 417 423 429 435 44] 471 477 14924 

DH2 015106 447 453 486 14934 

DH3 015163 459 465 14944 

DISPLA 001142 3904 514* 1455* 1465* 

DISPRE 000174 3824 514 

DMAP 001536 5064 555* 556* 558 1283* 1292 

DRVBAR 001522 494m 605 608* 609 656* 663 666 782* 8 78 818s 862* 
ace mS (Ay 970* 999* 1031* 1072* 1098 1102 1127 = =1165* 1204* 1246* 1286* 

DRVCSR 001524 4954 678 682* 683 693 699 701* 703 709 724 727* 728 741 
746* 748 752 756 764 766* 767 771% 773 779* 787* 792* 798* 
804* 820* 821* 823 825 826* 864* 865* 867 69 906* 907* 908 
910 911* 940* 941% 942 944 945* 964 972+ 973* 980 981* 993 
1001* 1002* 1007 1008* 1017 1034* 1035* 1036 1038 1039* 1074* 1075* 1076 
1078 1079* 1083 1087 1107* 1108 1112 1116 1120 1130* 1131" 1135 1137 
1138* 1168" 1169" 1173 1175 1176* 1207" 1208* 1209 1211 1212* 1249% 1250% 
1251 1253 1254* 1287" 1314" 1326 1327* 1331 

DRVCTO 001530 500# 521 740* 745* 1289 1306* 1315* 

DRYCT2 001532 5014 526 1290* 1307* 1315 1316* 





pot) a So -11-CVDRA-B at He ey INTERFACE DIAGNOSTIC 


DRAB.P11 
DRVDBR 001526 


11-SEP-81 


DRVWCR 001520 


DSWR = 177570 
DT1 015212 
bDT2 015226 
DT3 015244 
EMTVEC= 000030 
EM1 014150 
EM10 014361 
—EM11 014407 
EM12 014436 
—M13 014457 
EM14 014476 
EM15 014544 
EM16 014732 
EM17 014747 
EM2 014167 
EM20 015004 
EM3 014211 
EMG 014226 
EMS 014270 
EM6 014313 
M7 014337 
ERRVEC= 000004 
S = kkeekee 
GTSWR = 104406 
HT = 000011 
IOADR 015346 
IOPAGE 001544 
IOTEST 015312 
IOTVEC= 000020 
DF 001546 
KDF11B 015254 
LDBUF 010336 
LDBUF1 010410 
LF = 000012 
MTPS = 106427 
NXDEV 007672 
NXDEV1 007674 
PIRQ = 177772 
PIRQVE= 000240 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 == 000140 
PRG == 006200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = Meee 
PSW = 1777 


76 
PWRMSG 014054 


4964 519 
806 841 
1272 1288* 
4934 515 
936* 969* 
1334 Teze 

3764 390 
394 400 
448 454 
460 466 
3764 514* 
392 14744 
434 14814 
440 14824 
446 14834 
452 14844 
458 14854 
464 14864 
470 14894 
476 14904 
398 14754 
485 14914 
404 14764 
410 14774 
416 14784 
422 14794 
428 14804 
3764 514* 
382 528 
528 14714 
3764 1451 
15024 

S094 1240 
15014 

3764 514* 
5104 535* 
533 15004 
902 13594 
1027 1126 
3764 = 1451 
3804 

1235 1241 
560 12824 
3764 

3764 

3764 

3764 

3764 

3764 

3764 

3764 

3764 

3764 

3764 

3764 

1468 14694 


625 
ithe 


628* 

863* 
1439 

574 
1032* 


2 
14984 


552s 


1246 
537 


13824 


. 7 
MACY11 30(1046) 
CROSS REFERENCE TABLE == USER SYMBOLS 


629 641 657* 
888 926 929 


88 be 592 
33* 1071* 1091 


418 424 430 


573* 584* 1465* 


1268 1273 


11-SEP-81 


12:22 PAGE 6-2 
668 670 795 
938* 1206* 1227 
655* 659 661 

1095 1128* 1166* 


456 442 472 


797* 
1230 


817* 
1202* 


478 


799 
1248 


861* 
1244* 


14978 


SEQ 0057 


800 
1269 


903* 
1285* 


[$e 


| G 5 
| MAINDEC=11=CVDRA=B DRV118_DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 11-SEP-81 12:22 PAGE 6-3 

CVDRAB.P11 11-SEP-81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0058 

PWRVEC= 000024 376" 514% 1468s 

RDCHR = 104410 534146614718 

RDLIN = 104411 1467-14718 

RDOCT = 104412 14718 

RESTRT 002406 557, 559. -s«S61H 1294: 1468 

RESVEC= 000010 376" 

RSTVEC 010132 836,760, 853. 897931961990 102210651122 115611961234 

SETUP2 002022 5174" 520 

SETUPS 002052 5248 = 527 

SETVEC 010112 875, 813 857 900934965 99% 102510691124 1158-1200 1242 

STACK = 001100 376H 514 «‘562 

START 001550 3825148 

START1 002012 515# 1295 

STKLMT= 177776 376" 

WR 001140 390# = 514% = 5528S «539* «= 1198 = 1455 14651466") 1468 

SWRCK 012274 1455 1460# 

SWREG 000176 382" 6514528 ‘1466 

SwO = 000001 3764 

swOO = 000001 3764 

sw01 = 000002 3764 

swO2 = 000004 3768 

swO3 = 000010 376# 

sw04 = 000020 3764 

swOS = 000040 3764 

Sw06 = 000100 3764 

SwO7 = 000200 3768 

SWOB = 000400 3764 

SwO9 = 001000 3764 

Swi = 000002 3768 

sw10 = 002000 376# 

SW11 = 004000 376# 

Swi2 = 010000 3764 

Sw13 = 020000 3764 

SWw14 = 040000 3764 

sw15 = 100000 376" 

Sw2 = 000004 3764 

Sw3 = 000010 3764 

Sw4 = 000020 3764 

SWS = 000040 3764 

Sw6 = 000100 3764 

sw? = 000200 3764 

SWB = 000400 3764 

Sw9_ = 001000 3764 

TBITVE= 000014 3764 

TKVEC = 000060 3764 

TMAIN 000000 3814 

TPVEC = 000064 3764 

TRAPVE= 000034 3764 514* 

TRIVEC= 000014 3764 

TSTNUM 001534 505# 1460« 1497 1498 1499 

TST] 002442 5684 

TST10 003442 6984 

TST11 003516 705. 708 

TST12 003600 722" 


| 
| 


po a — ee ut 





H 5 
NDEC=11=CVDRA=B DRV11B DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 


| MAI 11-SEP-81 
| CVDRAB.P11 ss 11=SEP=81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS 
TST13 003676 7378 
TST14 004036 2628 
TST15 004140 775 7788 
TST16 004242 94H 
TST17 004356 808 Bile 
TST2 002552 5864 
TST20 004606 8554 
TST21 005030 899" 
TST22 005236 9334 
TST23 005472 9634 
TST24 005566 992" 
TST25 005770 10248 
TST26 006226 10674 
TST27 006606 11234 
TST3 002650 6034 
TST30 00700 11574 
TST31 007224 1197" 
TST4 002766 619 6234 
TSTS 003064 640" 
TST6 = 003144 650 6534 
TST? 003272 669 673 
TYPDS = 104405 1295 14714 
TYPE = 104401 3384 333 536 542 1295 1651S 1453 1454 
TYPOC = 104402 1464 1466-14718 
TYPON = 104404 14714 
TYPOS = 104403 14714 
WARN 014603 542 14874 
$APTHD 001000 3894 
SASTAT= teeeee 1452 
$ATYC 011210 14524 
$ATY1 011164 14508 
$ATY3 011172 1451 1452 
$ATY4 011202 14524 ©1455 
$AUTOR 001134 390# = 5528* 531 ‘1466 
$BASE 001250 3904 == 516 
$BDADR 001122 3904 576% 588* 605* 625% 642% 661% 666s 
741% 764% 780% 795% 823% 844% 867% 888s 
1036 1076* 1087" 1095* 1102" 11128 1120* 1135 
1331" 1336* 1347 1408% 14639* 1497 1498 1499 
$BDDAT 001126 390" = 572e = 592% = 4593 609* 610" 611 629% 
649 659% 663" 664% 668% 683% 684% 685 
1 71 716* = 717 728 729% 730 748% 
773 = 774 783% 784 788* 800* 801 806* 
885* 886 910* 926% 927 944% 968% 9778 
1014. 1017 + 1019 1038* 1078* 1083* 1085 10918 
1116 1718 «1732 «9 1133" «011378 «011708 = 1171 «11758 
1270 1326* 1329 1334% 13438 13448 1345 14098 
$BELL 001104 390# = 1455 
$CDW1 001254 390" 
$CDW2 001256 90# 
| $CHARC 011160 14514#* 
| $CKSWR 012736 1466# = 14 
$CMTAG 001100 s  $% 
$(M3 = 000000 390" 
| SCNTLG 013473 14664 


1455 


12:22 PAGE 6-4 


1464 


1466 


1467 


SEQ 0059 


1468 





a. 
MAINDEC=11=CVDRA-B aot He DMA INTERFACE chnee Rete MACY11 30(1046) 11-SEP-81 12:22 PAGE 6-5 


| CVDRAB.P11 11=SEP=81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0060 

SCNTLU 013466 14664 

SCPUOP 001222 3904 

SCRLF = 001171 3908 86145) 1455 1464 1466 1467 

SDBLK 012074 1454 

$DDWO 001260 4 5668 

$DDW1 001262 3904 

SDDW10 001304 3904 

$DDW11 00130¢ 3904 

SDDWI2 001550 3904 

SODW1S O013I2 3904 

SDDW14 001314 3904 

$DDW15 001316 390# 

SDDW2 001264 3904 

SDDWS 001266 3904 

$DDW4 = 001270 3904 

$DDWS 001272 3904 

$SDDW6 = 001274 3904 

$DDW7 001276 3904 

$DDW8 001300 3904 

$D 001302 3904 

SDEVCT 001204 3904 563* 

SDE 001252 3904 555 

SDOAGN 010065 12954 

$OTBL 012064 14544 

SENDAD 010056 387 12954 

SENDCT 010024 12954 

SENDMG 010075 12954 

SENULL 010072 12954 

SENV 001214 3904 528 1451 1452 1455 

em Se laa! wills ee 

SEOPCT 010016 12954 

SERFLG 001103 390# 1455* . 1465* 

a a 

A ns ilimge ox Uc loe 

SERRTY 012312 1461 14644 

SERTTL 001112 3904 14558 

dog AB cote 514% 1455 1465* 

SETEND 001320 389 3904 

SFATAL 001176 3904 14528 

SFFLG 011430 145¢e#* 

SFILLC 001156 3904 1451 

$FILLS 001155 3904 1451 

SGDADR 001120 390# 839s 883* 924" 1231* 1273* 14108" 1437% 1498 

SGDDAT 001124 390# 571* 590* 591 593 596* 599* 600* 607* 608 611 614+ 615* 
618* 620* 627* 628 630 633* 636* 637* 644" 9 654* 680* 681* 
685 692 700* 704 712 717 725% 730 733* 742+ 757 765* 768 
772* 774 781* 784 790* 796* 797 801 805* 807 824" 840* 
868+ 884* 8 909* 925* 2 943* 979" 1006* 1018* 1019 1037* 1077+ 
1084* 1085 1092* 1093 1099* 1100 1109* 1110 1117" =1118 1136* 1174" 1210* 
leces Fe 1252* 1268* 1270 1328* 1329 1337* =61340* 1341" 13428 1345 1438* 

$GET42 010046 1295# 


1 3 
IC MACY11 30(1046) 11-SEP-81 12:22 PAGE 6-6 


: sot tg -11=CVDRA=B DRV11B ~ INTERFACE DIAGNOST 
| CVDRAB.P11 11=SEP=81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0061 
SGTSWR 013006 14668 1471 
$HD == 000003 371 
$HIBTS 001000 r) 
0 

SINTAG 001135 3904 1466 
SITEMB 001114 3904 1455* 1464 
SLF 001172 3904 1451 1455 1466 1467 
SLFLG 011427 1452a* 
SLPADR 001106 3904 514* 568* 1465* 
SLPERR 001110 3904 5148 570* 587* 604* 624* 677* 723« 812* 850* 1455 1465* 
SMADR1 001226 3904 
SMADR2 001232 3904 
SMADR3 001236 3904 
SMADR4 001242 3904 
SMAIL 001174 389 3904 514 528 568 1451 1455 1465 
SMAMS1 001224 3904 
SMAMS2 001230 3904 
SMAMS3 001234 3904 
SMAMS4 0012 3904 
SMBADR 001002 894 
SMFLG 011426 1452a* 
SMNEW 013511 14664 
SMSGAD 001210 3904 1452* 
SMSGLG 001212 3904 1452s 
SMSGTY 001174 390" 1452* 
SMSWR 013500 14664 
SMTYP1 001225 3904 
SMTYP2 001231 3904 

‘T¥PS 001235 3904 
SMTYP4 001241 3904 
SMXCNT 012734 14654 
SNULL 001154 we 1451 
SNWTST= 000001 5684 5864 6034 6234 6404 6534 6734 6984 7084 7224 7374 Toon 7784 


794a 8114 8554 8994 9334 9634 9924 10244 10674 11234 1157# 119 


$SPASS 001202 3904 514* 1295* 1465 
1006 


1455 1466 1467 


$R 

SSAVRE= steeee 1471 

SSAVR6 014032 1468-8 

S$SCOPE 012446 514 14654 


kK 5 
MAINDEC=11=CVDRA-B ny DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 11-SEP-81 12:22 PAGE 6-7 


CVDRAB.P11 11=SEP=81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0062 
SSETUP= 000117 5128 514 528 1295 1455 1465 1466 
SSTUP = 177777 5128 
SSVLAD 012654 14654 
SSVPC = 000106 3874 
$swR = 167400 7714 3720 375 390 514 568 586 603 623 640 653 673 698 
708 722 737 762 778 794 811 855 899 933 963 992 1024 
1067 1123 1157 1197 1295 1455 1465 1468 
SSWREG 001216 3904 514 
SSWRMK= 000300 3738 375 1465 
STESTN 001200 390" 568* 1465* 
STIMES 001160 390" 514* 653s 673* 698* 737* 899s 933* 963* 992* 1024* 1067* 1123¢ 
1157* 1295" 1465* 
$TKB 001146 3904 1451 1466 
$TKS 001144 3904 1451 1466* 
$™N == 000032 3718 3748 5684 5864 6034 619 6254 6404 650 6534 669 6734 6984 
705 7084 7228 7378 7624 775 7784 7944 808 8114 8554 8994 9334 
9634 9924 10244 106074 11234 1157 11974 
PB 001152 3908 1451* 
STPFLG 001157 3904 1451 
TPS 001150 3904 1203 1204 1226 1231 1451 
STRAP 014066 514 14714 
STRAP2 014110 14714 
$TRP = 000013 14714 
STRPAD 014122 14714 
STSTM 001004 3894 
STSTNM 001102 3904 569* 1295* 1455 1460 1465* 
STTYIN 013456 14664 
STYPBN= **eee8 1471 
$STYPDS 011660 14544 891471 
$TYPE 010630 14514 1452 1471 
STYPEC 011042 14514 1466 
STYPEX 011162 14514 
STYPOC 011456 14534 1471 
STYPON 011472 14534 1471 
$TYPOS 011432 14534 1471 
SUNIT 001206 3904 5548 563 564 1291* 
SUNITM 001010 3894 
$uS 001220 904 
SVECT1 001244 3904 522 
SVECT2 001246 390" 
XOFF = 000023 1451 
$XON = 000021 1451 1466 
SXTSTR 012462 14654 
$S$GET4= 12954 
SOFILI 011655 14534 
S4OCAT= seeeee 1455 1465 
. = 015402 3824 3834 3874 3884 3898 3904 514 5284 1295 1451 1452@ 1454# 1455 
14644 1465 14664 1467 1468 15034 
SASTA= eeeeee 1452 
$x = 001000 389" 


- ABS. 915402 000 


ERRORS DETECTED: 0 








5 
MAINDEC=11=CVDRA=B a DMA INTERFACE DIAGNOSTIC MACY11 30(10463 11=SEP=81 12:22 PAGE 6-8 
CVDRAB.P11 11=SEP=81 12:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0063 


Sumy f CVDRAB/ CRF : SYM/NL : TOC=CVDRAB.P11 
TIME: ECONDS 


CORE USED: 27K (54 PAGES) 


